Promote file not found warning message to an error.

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

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