diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-10-08 17:14:01 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-10-08 17:14:01 -0400 |
| commit | 5f8d17ef558ee82e4cf9e75b8d750e90d35731ee (patch) | |
| tree | 9fe4d61c0713464b7818c4998f5af8f097ae2d48 /Command/Drop.hs | |
| parent | 6a885aacfc549c2504ee847ead806b6f10b991bf (diff) | |
generalized Annex.Wanted
this should make it easy to use from inside the assistant, where
everything is an AssociatedFile.
Diffstat (limited to 'Command/Drop.hs')
| -rw-r--r-- | Command/Drop.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Drop.hs b/Command/Drop.hs index 3fe5ab20a..26e80f8e5 100644 --- a/Command/Drop.hs +++ b/Command/Drop.hs @@ -32,7 +32,7 @@ seek = [withField fromOption Remote.byName $ \from -> start :: Maybe Remote -> FilePath -> (Key, Backend) -> CommandStart start from file (key, _) = autoCopiesWith file key (>) $ \numcopies -> - stopUnless (checkAuto $ shouldDrop from file) $ + stopUnless (checkAuto $ wantDrop (Remote.uuid <$> from) (Just file)) $ case from of Nothing -> startLocal file numcopies key Just remote -> do |