github/shellcheck
1
0
Fork 0
mirror of https://github.com/koalaman/shellcheck synced 2025-08-19 04:50:29 -07:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixed failing test

Browse source
This commit is contained in:
Vidar Holen 2014-06-10 00:33:54 -07:00
commit b035331d4a
1 changed files with 2 additions and 1 deletions
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