Use any instead of (or . fmap).

haskell-actions · Jan 16, 2024 · 38d9645 · 38d9645
1 parent dbfd933
commit 38d9645
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/test/FilePathSpec.hs b/test/FilePathSpec.hs
@@ -58,5 +58,5 @@ hasURI :: Value -> Bool
 hasURI (Object v)
   | KeyMap.member "uri" v = True
   | otherwise = foldr ((||) . hasURI) False v
-hasURI (Array vs) = or $ fmap hasURI vs
+hasURI (Array vs) = any hasURI vs
 hasURI _ = False