From bdb014f3a088da82845642b9688c662bc7afa29f Mon Sep 17 00:00:00 2001 From: "Juan J. Martinez" Date: Thu, 18 Aug 2022 07:28:56 +0100 Subject: This words make the errors more readable --- src/Error.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Error.hs') diff --git a/src/Error.hs b/src/Error.hs index 14b4875..93c5bd4 100644 --- a/src/Error.hs +++ b/src/Error.hs @@ -23,7 +23,7 @@ instance Show Error where showParserError :: ParseError -> String showParserError error = show (errorPos error) ++ " error: syntax error" - ++ showErrorMessages "or" "unknown parser error" " expecting" " unexpected" "end of input" (errorMessages error) + ++ showErrorMessages "or" "unknown parser error" " expected:" " found:" "end of input" (errorMessages error) instance Ord Error where compare (Error _ _ pos1) (Error _ _ pos2) = compare pos1 pos2 -- cgit v1.2.3