Skip to content

Commit fe3d4e1

Browse files
committed
Fix char function
1 parent 1700da1 commit fe3d4e1

File tree

1 file changed

+3
-1
lines changed

1 file changed

+3
-1
lines changed

src/HaskellWorks/Data/String/Parse.hs

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -56,4 +56,6 @@ option p q = Parser $ \s ->
5656
res -> res
5757

5858
char :: Char -> Parser Char
59-
char = return
59+
char c = do
60+
d <- item
61+
if c == d then return c else failure

0 commit comments

Comments
 (0)