github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-24 23:42:31 +03:00
Code Issues Projects Releases Wiki Activity

Avoid rolling our own string literal parser.

Browse Source 
🎩 @patrickt.
This commit is contained in:
Rob Rix 2019-08-06 12:25:05 -04:00
parent 78bd32e0b0
commit 372ed98b5e
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
semantic-core/src/Data/Core/Parser.hs
View File

@ -110,14 +110,8 @@ lit = let x `given` n = x <$ reserved n in choice
, Core.bool False `given` "#false"
, Core.unit `given` "#unit"
, record
, token (between (string "\"") (string "\"") (Core.string . fromString <$> many (escape <|> (noneOf "\"" <?> "non-escaped character"))))
, Core.string <$> stringLiteral
] <?> "literal"
where escape = char '\\' *> choice
[ '"' <$ string "\""
, '\n' <$ string "n"
, '\r' <$ string "r"
, '\t' <$ string "t"
] <?> "escape sequence"
record :: (TokenParsing m, Monad m) => m (Term Core User)
record = Core.record <$ reserved "#record" <*> braces (sepEndBy ((,) <$> identifier <* symbolic ':' <*> expr) comma)