verify local copy of content with locking
This commit is contained in:
parent
a5e74e9e64
commit
45e1a7c361
4 changed files with 93 additions and 86 deletions
|
@ -140,9 +140,6 @@ verifyExisting key destfile (yes, no) = do
|
|||
-- imported to, if it were imported.
|
||||
need <- getFileNumCopies destfile
|
||||
|
||||
(remotes, trusteduuids) <- knownCopies key
|
||||
untrusteduuids <- trustGet UnTrusted
|
||||
let tocheck = Remote.remotesWithoutUUID remotes (trusteduuids++untrusteduuids)
|
||||
let preverified = map (mkVerifiedCopy TrustedCopy) trusteduuids
|
||||
(tocheck, preverified) <- verifiableCopies key []
|
||||
verifyEnoughCopiesToDrop [] key need [] preverified tocheck
|
||||
(const yes) no
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue