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

Promote file not found warning message to an error.

Browse source
This commit is contained in:
Joey Hess 2014-09-11 13:36:28 -04:00
parent 79deba1f51
commit 9ed63d1545
5 changed files with 7 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Types/Messages.hs
View file

@ -7,8 +7,6 @@
module Types.Messages where
import qualified Data.Set as S
data OutputType = NormalOutput | QuietOutput | JSONOutput
data SideActionBlock = NoBlock | StartBlock | InBlock
@ -17,8 +15,7 @@ data SideActionBlock = NoBlock | StartBlock | InBlock
data MessageState = MessageState
{ outputType :: OutputType
, sideActionBlock :: SideActionBlock
, fileNotFoundShown :: S.Set FilePath
}
defaultMessageState :: MessageState
defaultMessageState = MessageState NormalOutput NoBlock S.empty
defaultMessageState = MessageState NormalOutput NoBlock