Manually fuse elem and map in isParentOf

koalaman · Dec 31, 2023 · 71c0fcb · 71c0fcb
1 parent add49cd
commit 71c0fcb
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/ShellCheck/AnalyzerLib.hs b/src/ShellCheck/AnalyzerLib.hs
@@ -430,7 +430,9 @@ getPathM t = do
     return $ getPath (parentMap params) t
 
 isParentOf tree parent child =
-    elem (getId parent) . NE.map getId $ getPath tree child
+    any (\t -> parentId == getId t) (getPath tree child)
+  where
+    parentId = getId parent
 
 parents params = getPath (parentMap params)