module Hcompta.CLI.Context where

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

nil :: Context
nil =
	Context
	 { verb    = False
	 , command = ""
	 , color   = Nothing
	 }