7x31
/
shellcheck
mirror of https://github.com/koalaman/shellcheck.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fixed failing test

This commit is contained in:
Vidar Holen 2014-06-10 00:33:54 -07:00
parent d13253973b
commit b035331d4a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ShellCheck/Analytics.hs
View File

@ -531,7 +531,8 @@ checkPipePitfalls _ (T_Pipeline id _ commands) = do
first func (x:_) = func (getId x) first func (x:_) = func (getId x)
first _ _ = return () first _ _ = return ()
hasShortParameter char list = any (\x -> "-" `isPrefixOf` x && char `elem` x) list hasShortParameter char list = any (\x -> "-" `isPrefixOf` x && char `elem` x) list
hasParameter string list = any (("--" ++ string) `isPrefixOf`) list hasParameter string list =
any (isPrefixOf string . dropWhile (== '-')) list
checkPipePitfalls _ _ = return () checkPipePitfalls _ _ = return ()
indexOfSublists sub = f 0 indexOfSublists sub = f 0