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/Get.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/Get.hs')
| -rw-r--r-- | Command/Get.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Get.hs b/Command/Get.hs index 10b74bfc7..c95e4eb94 100644 --- a/Command/Get.hs +++ b/Command/Get.hs @@ -24,7 +24,7 @@ seek = [withField Command.Move.fromOption Remote.byName $ \from -> withFilesInGit $ whenAnnexed $ start from] start :: Maybe Remote -> FilePath -> (Key, Backend) -> CommandStart -start from file (key, _) = stopUnless (checkAuto $ shouldGet file key) $ +start from file (key, _) = stopUnless ((not <$> inAnnex key) <&&> checkAuto (wantGet $ Just file)) $ autoCopies file key (<) $ case from of Nothing -> go $ perform key file |