diff options
Diffstat (limited to 'Types/Messages.hs')
-rw-r--r-- | Types/Messages.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Types/Messages.hs b/Types/Messages.hs index 75653d574..4fcce79f8 100644 --- a/Types/Messages.hs +++ b/Types/Messages.hs @@ -7,14 +7,18 @@ module Types.Messages where +import qualified Data.Set as S + data OutputType = NormalOutput | QuietOutput | JSONOutput data SideActionBlock = NoBlock | StartBlock | InBlock + deriving (Eq) data MessageState = MessageState { outputType :: OutputType , sideActionBlock :: SideActionBlock + , fileNotFoundShown :: S.Set FilePath } defaultMessageState :: MessageState -defaultMessageState = MessageState NormalOutput NoBlock +defaultMessageState = MessageState NormalOutput NoBlock S.empty |