From 7ac5c089d447c11bb9c9152bb30e1cff5b96267e Mon Sep 17 00:00:00 2001 From: "Juan J. Martinez" Date: Tue, 16 Aug 2022 23:15:20 +0100 Subject: Missing cases --- src/Error.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src') 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 = -- cgit v1.2.3