Baguette
/
parser
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove unused reference.

master
Philippe Pittoli 2024-01-20 02:04:08 +01:00
parent 36f3831827
commit 883c33967c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/GenericParser/Parser.purs
View File

@ -123,7 +123,7 @@ try p = Parser p'
sat :: forall e. (Char -> Boolean) -> Parser e Char sat :: forall e. (Char -> Boolean) -> Parser e Char
sat p = do pos <- current_position sat p = do pos <- current_position
x <- item x <- item
if p x then pure x else Parser \input -> failure pos if p x then pure x else Parser \_ -> failure pos
digit :: forall e. Parser e Char digit :: forall e. Parser e Char
digit = sat isDigit digit = sat isDigit