]> Git — Sourcephile - comptalang.git/blob - cli/Hcompta/CLI/Context.hs
Ajout : Makefile : %/install/test
[comptalang.git] / 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)