From 38d9645c08c30dd44d7f289e740a589efca46655 Mon Sep 17 00:00:00 2001
From: Yoo Chung <chungyc@google.com>
Date: Mon, 15 Jan 2024 19:51:26 -0500
Subject: [PATCH] Use any instead of (or .  fmap).

---
 test/FilePathSpec.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/FilePathSpec.hs b/test/FilePathSpec.hs
index 22b3562..139c15c 100644
--- 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