Simplify checkArg
This commit is contained in:
parent
fa841cb270
commit
9747b1d5c3
|
@ -538,9 +538,8 @@ checkSshCommandString = CommandCheck (Basename "ssh") (f . arguments)
|
||||||
([], hostport:r@(_:_)) -> checkArg $ last r
|
([], hostport:r@(_:_)) -> checkArg $ last r
|
||||||
_ -> return ()
|
_ -> return ()
|
||||||
checkArg (T_NormalWord _ [T_DoubleQuoted id parts]) =
|
checkArg (T_NormalWord _ [T_DoubleQuoted id parts]) =
|
||||||
case filter (not . isConstant) parts of
|
forM_ (find (not . isConstant) parts) $
|
||||||
[] -> return ()
|
\x -> info (getId x) 2029
|
||||||
(x:_) -> info (getId x) 2029
|
|
||||||
"Note that, unescaped, this expands on the client side."
|
"Note that, unescaped, this expands on the client side."
|
||||||
checkArg _ = return ()
|
checkArg _ = return ()
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue