From d86a804a2956828366cb012290a535021584ae30 Mon Sep 17 00:00:00 2001 From: Sebastian Graf Date: Sat, 25 Apr 2015 10:46:54 +0200 Subject: [PATCH] DRY + nitpicking --- chapter3/parsec.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/chapter3/parsec.hs b/chapter3/parsec.hs index 5d2cbfe..958629e 100644 --- a/chapter3/parsec.hs +++ b/chapter3/parsec.hs @@ -12,7 +12,7 @@ runParser :: Parser a -> String -> a runParser m s = case parse m s of [(res, [])] -> res - [(_, rs)] -> error "Parser did not consume entire stream." + [(_, _)] -> error "Parser did not consume entire stream." _ -> error "Parser error." item :: Parser Char @@ -62,7 +62,7 @@ satisfy :: (Char -> Bool) -> Parser Char satisfy p = item `bind` \c -> if p c then unit c - else (Parser (\cs -> [])) + else failure ------------------------------------------------------------------------------- -- Combinators