diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2022-08-18 07:28:56 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2022-08-18 07:28:56 +0100 |
| commit | bdb014f3a088da82845642b9688c662bc7afa29f (patch) | |
| tree | 85961c62015a1023e29d0cda3750232aa72bf530 /src/Error.hs | |
| parent | 7dbd39e6e5d77b332f7b0b534eddddbd116e00b6 (diff) | |
| download | micro-lang-hs-bdb014f3a088da82845642b9688c662bc7afa29f.tar.gz micro-lang-hs-bdb014f3a088da82845642b9688c662bc7afa29f.zip | |
This words make the errors more readable
Diffstat (limited to 'src/Error.hs')
| -rw-r--r-- | src/Error.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |