diff options
-rw-r--r-- | Annex.hs | 2 | ||||
-rw-r--r-- | Types/Messages.hs | 7 |
2 files changed, 6 insertions, 3 deletions
@@ -142,7 +142,7 @@ newState c r = AnnexState , backends = [] , remotes = [] , remoteannexstate = M.empty - , output = defaultMessageState + , output = def , force = False , fast = False , daemon = False diff --git a/Types/Messages.hs b/Types/Messages.hs index 35bb19057..a437d86ef 100644 --- a/Types/Messages.hs +++ b/Types/Messages.hs @@ -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 |