Coolbal/Verbosity.hs


1
2
3
4
5
6
7
8
9

module Coolbal.Verbosity where


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

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