fix build w/o concurrent-output

1 files changed, 10 insertions, 1 deletions

diff --git a/Types/Messages.hs b/Types/Messages.hs
index 0e60f36c8..e8dbb8e89 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
+		}