Baguette/parser
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove unused reference.

Browse source
This commit is contained in:
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