Display a warning when a non-existing file or directory is specified.
This commit is contained in:
parent
8ad03e1c78
commit
5f3661238d
6 changed files with 52 additions and 27 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue