18 lines
354 B
Haskell
18 lines
354 B
Haskell
module Error where
|
|
|
|
|
|
data Error
|
|
= MkUnknownError String
|
|
| MkErrorSpawningProcess String
|
|
| MkSystemError Int String String
|
|
deriving Show
|
|
|
|
type IOEitherError a = IO (Either Error a)
|
|
|
|
assignError :: String -> Error
|
|
assignError = MkUnknownError
|
|
--
|
|
-- TODO: add megaparsec to parse Error Messages
|
|
--
|
|
-- TODO: add error when internet connection is off
|