diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2022-08-16 23:10:06 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2022-08-16 23:10:06 +0100 |
| commit | 7b57942b3a10e51fdb7f78d276dc0187a22c3871 (patch) | |
| tree | 8af77798f00353dcc77e85aa3e167f7aff9e0ba7 /src/Error.hs | |
| parent | 55692e10192968ae7f040ceb9a8469b6ce2412c4 (diff) | |
| download | micro-lang-hs-7b57942b3a10e51fdb7f78d276dc0187a22c3871.tar.gz micro-lang-hs-7b57942b3a10e51fdb7f78d276dc0187a22c3871.zip | |
Test labels, test for errors WIP
Diffstat (limited to 'src/Error.hs')
| -rw-r--r-- | src/Error.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Error.hs b/src/Error.hs index f61cea2..19f88fd 100644 --- a/src/Error.hs +++ b/src/Error.hs @@ -4,7 +4,10 @@ import Data.List (sort) import Text.Parsec (SourcePos, errorPos) import Text.Parsec.Error (ParseError, errorMessages, showErrorMessages) -data Error = Error String SourcePos deriving (Eq) +data Error + = TypeError String SourcePos + | Error String SourcePos + deriving (Eq) instance Show Error where show (Error message pos) = |