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

View file

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

View file

@ -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