summaryrefslogtreecommitdiff
path: root/Command/Drop.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-10-08 15:01:38 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-10-08 15:01:38 -0400
commit55fb90edfc8732b08bea9239a6f4a471ac7867c3 (patch)
tree4f6933ac0c8aec8d7344b6248521ae338db23261 /Command/Drop.hs
parent8152051fcdbdadf43b70420add5bcc2f2c118b9c (diff)
add removeKey action to Remote
Not implemented for any remotes yet; probably the git remote is the only one that will ever implement it.
Diffstat (limited to 'Command/Drop.hs')
-rw-r--r--Command/Drop.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Drop.hs b/Command/Drop.hs
index 6bbdb58fd..8b361ed56 100644
--- a/Command/Drop.hs
+++ b/Command/Drop.hs
@@ -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