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/Move.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/Move.hs')
| -rw-r--r-- | Command/Move.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Command/Move.hs b/Command/Move.hs index 3f91f1bd9..142a84d71 100644 --- a/Command/Move.hs +++ b/Command/Move.hs @@ -32,21 +32,21 @@ toOption :: Option toOption = Option.field ['t'] "to" paramRemote "destination remote" moveOptions :: [Option] -moveOptions = [allOption, fromOption, toOption] +moveOptions = [fromOption, toOption] ++ keyOptions seek :: [CommandSeek] seek = [ withField toOption Remote.byNameWithUUID $ \to -> withField fromOption Remote.byNameWithUUID $ \from -> - withAll (startAll to from True) $ + withKeyOptions (startKey to from True) $ withFilesInGit $ whenAnnexed $ start to from True ] start :: Maybe Remote -> Maybe Remote -> Bool -> FilePath -> (Key, Backend) -> CommandStart start to from move file (key, _) = start' to from move (Just file) key -startAll :: Maybe Remote -> Maybe Remote -> Bool -> Key -> CommandStart -startAll to from move key = start' to from move Nothing key +startKey :: Maybe Remote -> Maybe Remote -> Bool -> Key -> CommandStart +startKey to from move key = start' to from move Nothing key start' :: Maybe Remote -> Maybe Remote -> Bool -> AssociatedFile -> Key -> CommandStart start' to from move afile key = do |