sdiehl/write-you-a-haskell
1
1
Fork 0
mirror of https://github.com/sdiehl/write-you-a-haskell.git synced 2024-07-14 15:01:23 +03:00
Code Issues Projects Releases Wiki Activity

DRY + nitpicking

Browse Source
This commit is contained in:
Sebastian Graf 2015-04-25 10:46:54 +02:00
parent 1e9b0fba91
commit d86a804a29
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
chapter3/parsec.hs
View File

@ -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