diff options
| author | Charles <sircharlesaze@gmail.com> | 2020-06-03 15:41:17 +0200 |
|---|---|---|
| committer | Charles <sircharlesaze@gmail.com> | 2020-06-03 15:41:17 +0200 |
| commit | 5e7d3a5ff586ac75b768a9a1c1f2d5b80960e821 (patch) | |
| tree | a7f7c50ded23536dd45cbaa7ae7987472bc06932 /src/parser/Core.hs | |
| parent | 99e5658feb48f15f85eaf9680affea2f490459bb (diff) | |
| download | computorv2-5e7d3a5ff586ac75b768a9a1c1f2d5b80960e821.tar.gz computorv2-5e7d3a5ff586ac75b768a9a1c1f2d5b80960e821.tar.bz2 computorv2-5e7d3a5ff586ac75b768a9a1c1f2d5b80960e821.zip | |
Back to where I was but without the mess
Diffstat (limited to 'src/parser/Core.hs')
| -rw-r--r-- | src/parser/Core.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/parser/Core.hs b/src/parser/Core.hs index 8deea2f..08ac1a9 100644 --- a/src/parser/Core.hs +++ b/src/parser/Core.hs @@ -14,7 +14,6 @@ runParserStrict p input = case runParser p input of Right (_, rest) -> Left $ "Unconsumed input: \"" ++ rest ++ "\"" Left err -> Left err - ------------------------------------------------------------------------------- -- Parser instances ------------------------------------------------------------------------------- @@ -66,7 +65,7 @@ satisfyChar :: (Char -> Bool) -> Parser Char satisfyChar predicate = Parser p where p [] = Left "Expected input" p (c:cs) = if predicate c then Right (c, cs) - else Left "Expected char" + else Left $ "Unexpected char '" ++ [c] ++ "'" char :: Char -> Parser Char char c = satisfyChar (c ==) |