diff options
author | Joey Hess <joey@kitenet.net> | 2013-07-03 15:26:59 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-07-03 15:26:59 -0400 |
commit | 289a3f7749a5086a19a22b277a022e3b006da94f (patch) | |
tree | 10c4a4fe5ab4391c82cf91f4069bf0d7f4c7490b /Command/Get.hs | |
parent | 0e4ed4dd9bf9b78c1723400e9c787a18430c5f57 (diff) |
--unused: New switch that makes git-annex operate on all data found by the last run of git annex unused. Supported by fsck, get, move, copy.
Diffstat (limited to 'Command/Get.hs')
-rw-r--r-- | Command/Get.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Command/Get.hs b/Command/Get.hs index 56dbe415f..0bbe4dc1a 100644 --- a/Command/Get.hs +++ b/Command/Get.hs @@ -23,12 +23,12 @@ def = [withOptions getOptions $ command "get" paramPaths seek SectionCommon "make content of annexed files available"] getOptions :: [Option] -getOptions = [allOption, Command.Move.fromOption] +getOptions = [Command.Move.fromOption] ++ keyOptions seek :: [CommandSeek] seek = [ withField Command.Move.fromOption Remote.byNameWithUUID $ \from -> - withAll (startAll from) $ + withKeyOptions (startKeys from) $ withFilesInGit $ whenAnnexed $ start from ] @@ -37,8 +37,8 @@ start from file (key, _) = start' expensivecheck from key (Just file) where expensivecheck = checkAuto (numCopiesCheck file key (<) <||> wantGet False (Just file)) -startAll :: Maybe Remote -> Key -> CommandStart -startAll from key = start' (return True) from key Nothing +startKeys :: Maybe Remote -> Key -> CommandStart +startKeys from key = start' (return True) from key Nothing start' :: Annex Bool -> Maybe Remote -> Key -> AssociatedFile -> CommandStart start' expensivecheck from key afile = stopUnless (not <$> inAnnex key) $ |