From adb564a48eba86568eb7c6af431ca07b9d8dd4c3 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 16 May 2024 09:52:34 -0400 Subject: [PATCH] avoid using dropEnd That needs bytestring-0.11.1.0 and several builds don't have that. --- Backend/GitRemoteAnnex.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Backend/GitRemoteAnnex.hs b/Backend/GitRemoteAnnex.hs index 84da8aee44..d550a0ddff 100644 --- a/Backend/GitRemoteAnnex.hs +++ b/Backend/GitRemoteAnnex.hs @@ -95,9 +95,10 @@ genManifestKey u = mkKey $ \kd -> kd isGitRemoteAnnexKey :: UUID -> Key -> Bool isGitRemoteAnnexKey u k = case fromKey keyVariety k of - GitBundleKey -> sameuuid $ + GitBundleKey -> sameuuid $ \b -> -- Remove the checksum that comes after the UUID. - B8.dropEnd 1 . B8.dropWhileEnd (/= '-') + let b' = B8.dropWhileEnd (/= '-') b + in B8.take (B8.length b' - 1) b' GitManifestKey -> sameuuid id _ -> False where