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 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