cli/Hcompta/CLI/Context.hs

   1 module Hcompta.CLI.Context where
   2
   3 data Context
   4  =   Context
   5  { verbosity :: Verbosity
   6  , command   :: String
   7  , color     :: Maybe Bool
   8  } deriving (Read, Show)
   9
  10 nil :: Context
  11 nil =
  12         Context
  13          { verbosity = Verbosity_Info
  14          , command   = ""
  15          , color     = Nothing
  16          }
  17
  18 data Verbosity
  19  = Verbosity_Error
  20  | Verbosity_Warn
  21  | Verbosity_Info
  22  | Verbosity_Debug
  23  deriving (Bounded, Enum, Eq, Ord, Read, Show)