working on documentation
This commit is contained in:
@@ -1,13 +1,24 @@
|
||||
module Error where
|
||||
module Error
|
||||
( Error(..)
|
||||
, IOEitherError
|
||||
, assignError
|
||||
) where
|
||||
|
||||
|
||||
-- ^ Error type for the application
|
||||
data Error
|
||||
= MkUnknownError String
|
||||
| MkErrorSpawningProcess String
|
||||
| MkSystemError Int String String
|
||||
= MkUnknownError
|
||||
String -- ^ error message
|
||||
| MkErrorSpawningProcess
|
||||
String -- ^ error message
|
||||
| MkSystemError
|
||||
Int -- ^ System error code
|
||||
String -- ^ String1
|
||||
String -- ^ String2
|
||||
deriving Show
|
||||
|
||||
type IOEitherError a = IO (Either Error a)
|
||||
-- ^ Type synonym for an IO action with either returns an Error or a parsed value
|
||||
type IOEitherError a = IO ( Either Error a)
|
||||
|
||||
assignError :: String -> Error
|
||||
assignError = MkUnknownError
|
||||
|
||||
Reference in New Issue
Block a user