mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

avoid using dropEnd

Browse source 
That needs bytestring-0.11.1.0 and several builds don't have that.
This commit is contained in:
Joey Hess 2024-05-16 09:52:34 -04:00
parent ce60211881
commit adb564a48e
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Backend/GitRemoteAnnex.hs
View file

@ -95,9 +95,10 @@ genManifestKey u = mkKey $ \kd -> kd
isGitRemoteAnnexKey :: UUID -> Key -> Bool isGitRemoteAnnexKey :: UUID -> Key -> Bool
isGitRemoteAnnexKey u k = isGitRemoteAnnexKey u k =
case fromKey keyVariety k of case fromKey keyVariety k of
GitBundleKey -> sameuuid $ GitBundleKey -> sameuuid $ \b ->
-- Remove the checksum that comes after the UUID. -- 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 GitManifestKey -> sameuuid id
_ -> False _ -> False
where where