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

View File

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