diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2022-08-16 23:15:20 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2022-08-16 23:15:20 +0100 |
| commit | 7ac5c089d447c11bb9c9152bb30e1cff5b96267e (patch) | |
| tree | dfe715686dd3b86cbd41b6d342f12a8d63192d67 | |
| parent | 7b57942b3a10e51fdb7f78d276dc0187a22c3871 (diff) | |
| download | micro-lang-hs-7ac5c089d447c11bb9c9152bb30e1cff5b96267e.tar.gz micro-lang-hs-7ac5c089d447c11bb9c9152bb30e1cff5b96267e.zip | |
Missing cases
| -rw-r--r-- | src/Error.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Error.hs b/src/Error.hs index 19f88fd..b528f9e 100644 --- a/src/Error.hs +++ b/src/Error.hs @@ -12,6 +12,9 @@ data Error instance Show Error where show (Error message pos) = show pos ++ " error: " ++ message + -- XXX: can we do this differently? + show (TypeError message pos) = + show pos ++ " error: " ++ message showParserError :: ParseError -> String showParserError error = |