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