Don't warn for \. (regex) and \, (printf "%q" output)

This commit is contained in:
Vidar Holen 2013-07-23 21:35:00 -07:00
parent b147419717
commit 6974497f45
1 changed files with 1 additions and 1 deletions

View File

@ -768,7 +768,7 @@ readNormalEscaped = called "escaped char" $ do
pos <- getPosition
backslash
do
next <- (quotable <|> oneOf "?*@!+[]{}")
next <- (quotable <|> oneOf "?*@!+[]{}.,")
return $ if next == '\n' then "" else [next]
<|>
do