diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-25 17:54:08 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-25 17:54:08 -0400 |
| commit | a9c5a30db304e9d84c4d3c17d075f16db69cd278 (patch) | |
| tree | a6ffc8d972730ef4ad78d40ae0299f0d440d821e /Types | |
| parent | 8a1831845f48062745f9b901c0bb9d060450c564 (diff) | |
Display a warning when a non-existing file or directory is specified.
Diffstat (limited to 'Types')
| -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 |