summaryrefslogtreecommitdiff
path: root/Command
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-10-18 14:55:59 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-10-18 15:07:11 -0400
commitb9138b54db85610ce16d31ef1d1e74c18ee25b87 (patch)
treef98729b435cf14cbf18f3011ae4de01b4eb4fb03 /Command
parent3e657d3db6bc65ab09343eb019ce5bf73666213e (diff)
drop unwanted content in the transfer scan
This was complicated quite a bit by needing to check numcopies. I optimised that, so it only looks up numcopies once per file, no matter how many remotes it checks to drop from. Although it did just occur to me that it might be better to first check if it wants to drop content, and only then check numcopies..
Diffstat (limited to 'Command')
-rw-r--r--Command/Drop.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Drop.hs b/Command/Drop.hs
index 26e80f8e5..9e58701db 100644
--- a/Command/Drop.hs
+++ b/Command/Drop.hs
@@ -48,7 +48,7 @@ startLocal file numcopies key = stopUnless (inAnnex key) $ do
startRemote :: FilePath -> Maybe Int -> Key -> Remote -> CommandStart
startRemote file numcopies key remote = do
- showStart "drop" file
+ showStart ("drop " ++ Remote.name remote) file
next $ performRemote key numcopies remote
performLocal :: Key -> Maybe Int -> CommandPerform