Display a warning when a non-existing file or directory is specified.

This commit is contained in:
Joey Hess 2012-11-25 17:54:08 -04:00
parent 8ad03e1c78
commit 5f3661238d
6 changed files with 52 additions and 27 deletions

View file

@ -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