Fixed parser warning for \{foo,bar\}

This commit is contained in:
Vidar Holen 2013-07-06 15:36:06 -07:00
parent 56e0119db1
commit 2500b2cce6
1 changed files with 1 additions and 1 deletions

View File

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