lift isCryptographicallySecure to Annex
Needed for VURL backend. Sponsored-by: Nicholas Golder-Manning on Patreon
This commit is contained in:
parent
55bf01b788
commit
e7b7ea78af
8 changed files with 15 additions and 14 deletions
|
@ -276,7 +276,7 @@ runTransferrer sd r k afile retrydecider direction _witness =
|
|||
preCheckSecureHashes :: Observable v => Key -> Maybe Backend -> Annex v -> Annex v
|
||||
preCheckSecureHashes k meventualbackend a = case meventualbackend of
|
||||
Just eventualbackend -> go
|
||||
(pure (Types.Backend.isCryptographicallySecure eventualbackend))
|
||||
(Types.Backend.isCryptographicallySecure eventualbackend)
|
||||
(Types.Backend.backendVariety eventualbackend)
|
||||
Nothing -> go
|
||||
(isCryptographicallySecure k)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue