From 013986b492f85a60425a1141c30b329e4598d236 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Fri, 6 Nov 2015 12:51:25 -0400
Subject: [PATCH] fix build w/o concurrent-output

---
 Types/Messages.hs | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/Types/Messages.hs b/Types/Messages.hs
index 0e60f36c8b..e8dbb8e890 100644
--- a/Types/Messages.hs
+++ b/Types/Messages.hs
@@ -24,10 +24,19 @@ data SideActionBlock = NoBlock | StartBlock | InBlock
 data MessageState = MessageState
 	{ outputType :: OutputType
 	, sideActionBlock :: SideActionBlock
+#ifdef WITH_CONCURRENTOUTPUT
 	, consoleRegion :: Maybe ConsoleRegion
 	, consoleRegionErrFlag :: Bool
+#endif
 	}
 
 instance Default MessageState
   where
-	def = MessageState NormalOutput NoBlock Nothing False
+	def = MessageState
+		{ outputType = NormalOutput
+		, sideActionBlock = NoBlock
+#ifdef WITH_CONCURRENTOUTPUT
+		, consoleRegion = Nothing
+		, consoleRegionErrFlag = False
+#endif
+		}