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

lift isCryptographicallySecure to Annex

Browse source 
Needed for VURL backend.

Sponsored-by: Nicholas Golder-Manning on Patreon
This commit is contained in:
Joey Hess 2024-02-29 16:14:13 -04:00
parent 55bf01b788
commit e7b7ea78af
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
8 changed files with 15 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Backend.hs
View file

@ -124,8 +124,8 @@ isStableKey k = maybe False (`B.isStableKey` k)
<$> maybeLookupBackendVariety (fromKey keyVariety k)
isCryptographicallySecure :: Key -> Annex Bool
isCryptographicallySecure k = maybe False isCryptographicallySecure'
<$> maybeLookupBackendVariety (fromKey keyVariety k)
isCryptographicallySecure k = maybe (pure False) isCryptographicallySecure'
=<< maybeLookupBackendVariety (fromKey keyVariety k)
isCryptographicallySecure' :: Backend -> Bool
isCryptographicallySecure' :: Backend -> Annex Bool
isCryptographicallySecure' = B.isCryptographicallySecure