Promote file not found warning message to an error.
This commit is contained in:
parent
79deba1f51
commit
9ed63d1545
5 changed files with 7 additions and 20 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue