From b035331d4a4b0dbdbdb9295fff51db7e14fb6680 Mon Sep 17 00:00:00 2001 From: Vidar Holen Date: Tue, 10 Jun 2014 00:33:54 -0700 Subject: [PATCH] Fixed failing test --- ShellCheck/Analytics.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/ShellCheck/Analytics.hs b/ShellCheck/Analytics.hs index 869c7b9..abd6043 100644 --- a/ShellCheck/Analytics.hs +++ b/ShellCheck/Analytics.hs @@ -531,7 +531,8 @@ checkPipePitfalls _ (T_Pipeline id _ commands) = do first func (x:_) = func (getId x) first _ _ = return () 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 () indexOfSublists sub = f 0