working on documentation

This commit is contained in:
2024-11-13 21:57:57 +00:00
parent 55d1a5ec3f
commit 6d6c997df5
5 changed files with 55 additions and 17 deletions

View File

@@ -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