module Hcompta.CLI.Context where

data Context
 =   Context
 { verbosity :: Verbosity
 , command   :: String
 , color     :: Maybe Bool
 } deriving (Read, Show)

nil :: Context
nil =
	Context
	 { verbosity = Verbosity_Info
	 , command   = ""
	 , color     = Nothing
	 }

data Verbosity
 = Verbosity_Error
 | Verbosity_Warn
 | Verbosity_Info
 | Verbosity_Debug
 deriving (Bounded, Enum, Eq, Ord, Read, Show)