mrkkrp/megaparsec
1
1
Fork 0
mirror of https://github.com/mrkkrp/megaparsec.git synced 2024-12-25 09:12:29 +03:00
Code Issues Projects Releases Wiki Activity

Update docs for ‘charLiteral’ to mention ‘\&’

Browse Source 
Close #154.
This commit is contained in:
mrkkrp 2016-11-24 20:08:54 +03:00
parent dd2386aafc
commit 86cca77cf5
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Text/Megaparsec/Lexer.hs
View File

@ -361,6 +361,14 @@ lineFold sc action =
-- string literals: -- string literals:
-- --
-- > stringLiteral = char '"' >> manyTill L.charLiteral (char '"') -- > stringLiteral = char '"' >> manyTill L.charLiteral (char '"')
--
-- If you want to write @stringLiteral@ that adheres to the Haskell report
-- though, you'll need to take care of the @\\&@ combination which is not a
-- character, but can be used to separate characters (as in @\"\\291\\&4\"@
-- which is two characters long):
--
-- > stringLiteral = catMaybes <$> (char '"' >> manyTill ch (char '"'))
-- > where ch = (Just <$> L.charLiteral) <|> (Nothing <$ string "\\&")
charLiteral :: (MonadParsec e s m, Token s ~ Char) => m Char charLiteral :: (MonadParsec e s m, Token s ~ Char) => m Char
charLiteral = label "literal character" $ do charLiteral = label "literal character" $ do