module Coolbal.Verbosity where


data Verbosity = Quiet | Verbose
  deriving (Show, Eq, Ord)

intToVerbosity :: Int -> Verbosity
intToVerbosity n | n <= 0 = Quiet
intToVerbosity _ = Verbose