add removeKey action to Remote

Not implemented for any remotes yet; probably the git remote is the only
one that will ever implement it.
This commit is contained in:
Joey Hess 2015-10-08 15:01:38 -04:00
parent beedf1da25
commit b1abe59193
Failed to extract signature
16 changed files with 22 additions and 2 deletions

View file

@ -91,7 +91,7 @@ startRemote afile numcopies key remote = do
-- Note that lockContentExclusive is called before checking if the key is
-- present on enough remotes to allow removal. This avoids a scenario where two
-- or more remotes are trying to remove a key at the same time, and each
-- see the key is present on the other.
-- sees the key is present on the other.
performLocal :: Key -> AssociatedFile -> NumCopies -> Maybe Remote -> CommandPerform
performLocal key afile numcopies knownpresentremote = lockContentExclusive key $ \contentlock -> do
(remotes, trusteduuids) <- Remote.keyPossibilitiesTrusted key