diff options
Diffstat (limited to 'Types/Messages.hs')
| -rw-r--r-- | Types/Messages.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Types/Messages.hs b/Types/Messages.hs index e8dbb8e89..f9e09ecd7 100644 --- a/Types/Messages.hs +++ b/Types/Messages.hs @@ -24,6 +24,7 @@ data SideActionBlock = NoBlock | StartBlock | InBlock data MessageState = MessageState { outputType :: OutputType , sideActionBlock :: SideActionBlock + , implicitMessages :: Bool #ifdef WITH_CONCURRENTOUTPUT , consoleRegion :: Maybe ConsoleRegion , consoleRegionErrFlag :: Bool @@ -35,6 +36,7 @@ instance Default MessageState def = MessageState { outputType = NormalOutput , sideActionBlock = NoBlock + , implicitMessages = True #ifdef WITH_CONCURRENTOUTPUT , consoleRegion = Nothing , consoleRegionErrFlag = False |