aboutsummaryrefslogtreecommitdiff
path: root/Command/Copy.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-10-08 17:14:01 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-10-08 17:14:01 -0400
commit5f8d17ef558ee82e4cf9e75b8d750e90d35731ee (patch)
tree9fe4d61c0713464b7818c4998f5af8f097ae2d48 /Command/Copy.hs
parent6a885aacfc549c2504ee847ead806b6f10b991bf (diff)
generalized Annex.Wanted
this should make it easy to use from inside the assistant, where everything is an AssociatedFile.
Diffstat (limited to 'Command/Copy.hs')
-rw-r--r--Command/Copy.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Copy.hs b/Command/Copy.hs
index c8a2d7efc..f044facf4 100644
--- a/Command/Copy.hs
+++ b/Command/Copy.hs
@@ -31,5 +31,5 @@ start to from file (key, backend) = autoCopies file key (<) $
Command.Move.start to from False file (key, backend)
where
shouldCopy = case to of
- Nothing -> checkAuto $ shouldGet file key
- Just r -> checkAuto $ shouldSend r file
+ Nothing -> checkAuto $ wantGet (Just file)
+ Just r -> checkAuto $ wantSend (Remote.uuid r) (Just file)