Use void instead of do and return ()
This commit is contained in:
parent
0ca50159ec
commit
0e00249eae
|
@ -500,11 +500,10 @@ checkPipePitfalls _ (T_Pipeline id _ commands) = do
|
||||||
for' ["ls", "xargs"] $
|
for' ["ls", "xargs"] $
|
||||||
\x -> warn x 2011 "Use 'find .. -print0 | xargs -0 ..' or 'find .. -exec .. +' to allow non-alphanumeric filenames."
|
\x -> warn x 2011 "Use 'find .. -print0 | xargs -0 ..' or 'find .. -exec .. +' to allow non-alphanumeric filenames."
|
||||||
]
|
]
|
||||||
unless didLs $ do
|
unless didLs $ void $
|
||||||
for ["ls", "?"] $
|
for ["ls", "?"] $
|
||||||
\(ls:_) -> unless (hasShortParameter 'N' (oversimplify ls)) $
|
\(ls:_) -> unless (hasShortParameter 'N' (oversimplify ls)) $
|
||||||
info (getId ls) 2012 "Use find instead of ls to better handle non-alphanumeric filenames."
|
info (getId ls) 2012 "Use find instead of ls to better handle non-alphanumeric filenames."
|
||||||
return ()
|
|
||||||
where
|
where
|
||||||
for l f =
|
for l f =
|
||||||
let indices = indexOfSublists l (map (headOrDefault "" . oversimplify) commands)
|
let indices = indexOfSublists l (map (headOrDefault "" . oversimplify) commands)
|
||||||
|
|
Loading…
Reference in New Issue