From de6e9f5bebee3f5c469c378b8b728ae19d13be70 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Fri, 14 Mar 2025 14:44:22 -0400
Subject: [PATCH] support building with old version of bytestring

---
 Annex/Locations.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/Annex/Locations.hs b/Annex/Locations.hs
index 7cc52d9688..c4347de4d6 100644
--- a/Annex/Locations.hs
+++ b/Annex/Locations.hs
@@ -6,6 +6,7 @@
  -}
 
 {-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE CPP #-}
 
 module Annex.Locations (
 	keyFile,
@@ -744,7 +745,7 @@ reSanitizeKeyName = preSanitizeKeyName' True
 keyFile :: Key -> OsPath
 keyFile k = 
 	let b = serializeKey'' k
-	in toOsPath $ if SB.any (`elem` needesc) b
+	in toOsPath $ if anyneedesc b
 		then mconcat $ map esc (SB.unpack b)
 		else b
   where
@@ -757,6 +758,12 @@ keyFile k =
 
 	needesc = map (fromIntegral . ord) ['&', '%', ':', '/']
 
+#if MIN_VERSION_bytestring(0,11,3)
+	anyneedesc = SB.any (`elem` needesc)
+#else
+	anyneedesc = any (`elem` needesc) . SB.unpack
+#endif
+
 {- Reverses keyFile, converting a filename fragment (ie, the basename of
  - the symlink target) into a key. -}
 fileKey :: OsPath -> Maybe Key