diff options
| -rw-r--r-- | Types/Messages.hs | 11 |
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 + } |