Fixed some incorrect warnings for PS1 escapes.

This commit is contained in:
Vidar Holen
2013-07-05 19:12:13 -07:00
parent 76c5af2973
commit 56e0119db1
2 changed files with 4 additions and 2 deletions

View File

@@ -829,7 +829,7 @@ readGenericLiteral1 endExp = do
readGenericEscaped = do
backslash
x <- anyChar
return $ if x == '\n' then [] else [x]
return $ if x == '\n' then [] else ['\\', x]
prop_readBraced = isOk readBraced "{1..4}"
prop_readBraced2 = isOk readBraced "{foo,bar,\"baz lol\"}"