Don't warn for \. (regex) and \, (printf "%q" output)
This commit is contained in:
parent
b147419717
commit
6974497f45
|
@ -768,7 +768,7 @@ readNormalEscaped = called "escaped char" $ do
|
||||||
pos <- getPosition
|
pos <- getPosition
|
||||||
backslash
|
backslash
|
||||||
do
|
do
|
||||||
next <- (quotable <|> oneOf "?*@!+[]{}")
|
next <- (quotable <|> oneOf "?*@!+[]{}.,")
|
||||||
return $ if next == '\n' then "" else [next]
|
return $ if next == '\n' then "" else [next]
|
||||||
<|>
|
<|>
|
||||||
do
|
do
|
||||||
|
|
Loading…
Reference in New Issue