cli/Hcompta/CLI/Context.hs

   1 module Hcompta.CLI.Context where
   2
   3 data Context
   4  =   Context
   5  { verb    :: Bool
   6  , command :: String
   7  , color   :: Maybe Bool
   8  } deriving (Show)
   9
  10 nil :: Context
  11 nil =
  12         Context
  13          { verb    = False
  14          , command = ""
  15          , color   = Nothing
  16          }