suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix string parsing

Browse Source
This commit is contained in:
Adam Sampson 2007-03-18 01:46:47 +00:00
parent 69c1c04e84
commit 5e8076cab5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fco2/Parse.hs
View File

@ -441,7 +441,7 @@ digits
byte :: OccParser A.LiteralRepr
byte
= lexeme (do { m <- md; char '\''; s <- character; char '\''; return $ A.ByteLiteral m s })
= do { m <- md; char '\''; s <- character; char '\''; return $ A.ByteLiteral m s }
<?> "byte"
-- i.e. array literal
@ -459,8 +459,8 @@ table'
stringLiteral :: OccParser A.LiteralRepr
stringLiteral
= lexeme (do { m <- md; char '"'; cs <- many character; char '"'; return $ A.StringLiteral m (concat cs) })
<?> "string"
= do { m <- md; char '"'; cs <- manyTill character (char '"'); return $ A.StringLiteral m (concat cs) }
<?> "stringLiteral"
character :: OccParser String
character