Fixed quoted ~ warning to only trigger for ~/
This commit is contained in:
parent
dcc10bbdf6
commit
0a2cf208c8
|
@ -1852,7 +1852,7 @@ prop_checkTildeInQuotes5 = verifyNot checkTildeInQuotes "echo '/~foo/cow'"
|
|||
prop_checkTildeInQuotes6 = verifyNot checkTildeInQuotes "awk '$0 ~ /foo/'"
|
||||
checkTildeInQuotes _ = check
|
||||
where
|
||||
verify id ('~':_) = warn id 2088 "Note that ~ does not expand in quotes."
|
||||
verify id ('~':'/':_) = warn id 2088 "Note that ~ does not expand in quotes."
|
||||
verify _ _ = return ()
|
||||
check (T_NormalWord _ (T_SingleQuoted id str:_)) =
|
||||
verify id str
|
||||
|
|
|
@ -950,7 +950,7 @@ readNormalEscaped = called "escaped char" $ do
|
|||
pos <- getPosition
|
||||
backslash
|
||||
do
|
||||
next <- quotable <|> oneOf "?*@!+[]{}.,"
|
||||
next <- quotable <|> oneOf "?*@!+[]{}.,~"
|
||||
return $ if next == '\n' then "" else [next]
|
||||
<|>
|
||||
do
|
||||
|
|
Loading…
Reference in New Issue