summaryrefslogtreecommitdiff
path: root/Types
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-11-06 12:51:25 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-11-06 12:52:31 -0400
commit7c06f2e40b302af4f81f08fa9521c3e063dfa120 (patch)
tree91dd0d3d067526270ccd61056741c7398a03bea2 /Types
parent94c9c0d4861bc58765cdefb4f9e3851ece85c9de (diff)
fix build w/o concurrent-output
Diffstat (limited to 'Types')
-rw-r--r--Types/Messages.hs11
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
+ }