fix build w/o concurrent-output

diff --git a/Types/Messages.hs b/Types/Messages.hs
index 0e60f36c8b0007aa80b3df7b5a3a97b2343c7c3b..e8dbb8e89061cbbc5f20a79956d162a4ce4792a6 100644 (file)
--- 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
+               }