Implement findFirst in terms of foldr

src/ShellCheck/AnalyzerLib.hs

@@ -388,14 +388,13 @@ parents params = getPath (parentMap params)
 -- Find the first match in a list where the predicate is Just True.
 -- Stops if it's Just False and ignores Nothing.
 findFirst :: (a -> Maybe Bool) -> [a] -> Maybe a
-findFirst p l =
+findFirst p = foldr go Nothing
-    case l of
+  where
-        [] -> Nothing
+    go x acc =
-        (x:xs) ->
+      case p x of
-            case p x of
+        Just True  -> return x
-                Just True  -> return x
+        Just False -> Nothing
-                Just False -> Nothing
+        Nothing    -> acc
-                Nothing    -> findFirst p xs
 
 -- Check whether a word is entirely output from a single command
 tokenIsJustCommandOutput t = case t of