mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

use def

Browse source
This commit is contained in:
Joey Hess 2015-04-03 19:56:56 -04:00
parent 45e97191c3
commit 3146d24e29
2 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Annex.hs
View file

@ -142,7 +142,7 @@ newState c r = AnnexState
, backends = [] , backends = []
, remotes = [] , remotes = []
, remoteannexstate = M.empty , remoteannexstate = M.empty
, output = defaultMessageState , output = def
, force = False , force = False
, fast = False , fast = False
, daemon = False , daemon = False

7
Types/Messages.hs
View file

@ -7,6 +7,8 @@
module Types.Messages where module Types.Messages where
import Data.Default
data OutputType = NormalOutput | QuietOutput | ProgressOutput | JSONOutput data OutputType = NormalOutput | QuietOutput | ProgressOutput | JSONOutput
data SideActionBlock = NoBlock | StartBlock | InBlock data SideActionBlock = NoBlock | StartBlock | InBlock
@ -17,5 +19,6 @@ data MessageState = MessageState
, sideActionBlock :: SideActionBlock , sideActionBlock :: SideActionBlock
} }
defaultMessageState :: MessageState instance Default MessageState
defaultMessageState = MessageState NormalOutput NoBlock where
def = MessageState NormalOutput NoBlock