root/logic
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

tidy: Logic.Parse

Browse source
This commit is contained in:
hi 2025-08-12 13:36:06 +00:00
parent 88c140fed5
commit bd9b58c405
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Logic/Parse.hs
View file

@ -79,9 +79,9 @@ parseToken token = Parser parse
| otherwise = Left $ expected (show token) input | otherwise = Left $ expected (show token) input
parseIf :: Show s => String -> (s -> Bool) -> Parser s s parseIf :: Show s => String -> (s -> Bool) -> Parser s s
parseIf description check = Parser $ \input -> parseIf description check = Parser $ \input@(Input pos xs) ->
case inputSeq input of case xs of
[] -> Left $ ParseError (inputPos input) "unexpected end of input" [] -> Left $ ParseError pos "unexpected end of input"
(char:chars) (char:chars)
| check char -> Right $ (char,) $ Input (inputPos input + 1) chars | check char -> Right $ (char,) $ Input (pos + 1) chars
| otherwise -> Left $ expected description input | otherwise -> Left $ expected description input