use def
This commit is contained in:
parent
45e97191c3
commit
3146d24e29
2 changed files with 6 additions and 3 deletions
2
Annex.hs
2
Annex.hs
|
@ -142,7 +142,7 @@ newState c r = AnnexState
|
|||
, backends = []
|
||||
, remotes = []
|
||||
, remoteannexstate = M.empty
|
||||
, output = defaultMessageState
|
||||
, output = def
|
||||
, force = False
|
||||
, fast = False
|
||||
, daemon = False
|
||||
|
|
|
@ -7,6 +7,8 @@
|
|||
|
||||
module Types.Messages where
|
||||
|
||||
import Data.Default
|
||||
|
||||
data OutputType = NormalOutput | QuietOutput | ProgressOutput | JSONOutput
|
||||
|
||||
data SideActionBlock = NoBlock | StartBlock | InBlock
|
||||
|
@ -17,5 +19,6 @@ data MessageState = MessageState
|
|||
, sideActionBlock :: SideActionBlock
|
||||
}
|
||||
|
||||
defaultMessageState :: MessageState
|
||||
defaultMessageState = MessageState NormalOutput NoBlock
|
||||
instance Default MessageState
|
||||
where
|
||||
def = MessageState NormalOutput NoBlock
|
||||
|
|
Loading…
Add table
Reference in a new issue