\" should not be treated specially in `backticks`

This commit is contained in:
Vidar Holen 2013-11-12 18:27:18 -08:00
parent d404bc703d
commit d8b5d6393a
1 changed files with 2 additions and 1 deletions

View File

@ -701,6 +701,7 @@ readSingleQuotedPart =
<|> anyChar `reluctantlyTill1` (singleQuote <|> backslash) <|> anyChar `reluctantlyTill1` (singleQuote <|> backslash)
prop_readBackTicked = isOk readBackTicked "`ls *.mp3`" prop_readBackTicked = isOk readBackTicked "`ls *.mp3`"
prop_readBackTicked2 = isOk readBackTicked "`grep \"\\\"\"`"
readBackTicked = called "backtick expansion" $ do readBackTicked = called "backtick expansion" $ do
id <- getNextId id <- getNextId
pos <- getPosition pos <- getPosition
@ -713,7 +714,7 @@ readBackTicked = called "backtick expansion" $ do
return $ T_Backticked id result return $ T_Backticked id result
where where
unEscape [] = [] unEscape [] = []
unEscape ('\\':x:rest) | x `elem` "\"$`\\" = x : unEscape rest unEscape ('\\':x:rest) | x `elem` "$`\\" = x : unEscape rest
unEscape ('\\':'\n':rest) = unEscape rest unEscape ('\\':'\n':rest) = unEscape rest
unEscape (c:rest) = c : unEscape rest unEscape (c:rest) = c : unEscape rest