diff options
Diffstat (limited to 'Types')
| -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 5cbb53057..0e60f36c8 100644 --- a/Types/Messages.hs +++ b/Types/Messages.hs @@ -5,11 +5,18 @@ - Licensed under the GNU GPL version 3 or higher. -} +{-# LANGUAGE CPP #-} + module Types.Messages where import Data.Default +#ifdef WITH_CONCURRENTOUTPUT +import System.Console.Regions (ConsoleRegion) +#endif + data OutputType = NormalOutput | QuietOutput | ConcurrentOutput Int | JSONOutput + deriving (Show) data SideActionBlock = NoBlock | StartBlock | InBlock deriving (Eq) @@ -17,8 +24,10 @@ data SideActionBlock = NoBlock | StartBlock | InBlock data MessageState = MessageState { outputType :: OutputType , sideActionBlock :: SideActionBlock + , consoleRegion :: Maybe ConsoleRegion + , consoleRegionErrFlag :: Bool } instance Default MessageState where - def = MessageState NormalOutput NoBlock + def = MessageState NormalOutput NoBlock Nothing False |