mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

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

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

6
Types/Messages.hs
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