use def

2 files changed, 6 insertions, 3 deletions

diff --git a/Annex.hs b/Annex.hs
index 0ebdd4c07..1c8618cc0 100644
--- a/Annex.hs
+++ b/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
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