Idris/advent
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

json: Refactor string parser

Browse source
This commit is contained in:
Nathan McCarty 2025-01-26 15:40:15 -05:00
parent 91e1d2c9b1
commit 4fb5707b25
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/Parser/JSON.md
View file

@ -209,13 +209,15 @@ array = do
```idris ```idris
string = do string = do
_ <- parseExactChar '"' str <- parseString $ delimited '"' '"' (many stringCharacter)
pure $ VString str
where
-- TODO: Handle control characters properly -- TODO: Handle control characters properly
stringCharacter : Parser Char
stringCharacter = do
e1 <- parseError "Expected non-quote, got quote" e1 <- parseError "Expected non-quote, got quote"
e2 <- parseError "End of input" e2 <- parseError "End of input"
contents <- parseString . many $ parseCharE (not . (== '"')) (\_ => e1) e2 parseCharE (not . (== '"')) (\_ => e1) e2
_ <- parseExactChar '"'
pure $ VString contents
``` ```
```idris ```idris