diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-08-20 15:46:35 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-08-20 15:46:35 -0400 |
| commit | 856f2f21c654ac9ac87554b9bb0e59b4ba595b10 (patch) | |
| tree | acc1557ab3f4e2fed27ea97e2e29c65f3e48b423 /Command/Get.hs | |
| parent | da79efe0dfa97f3cb9e983e54cd1541695b5a39a (diff) | |
mirror: New command, makes two repositories contain the same set of files.
This is a simple approach for setting up a mirroring repository.
It will work with any type of remotes.
Mirror --from is more expensive than mirror --to in general.
OTOH, mirror --from will get the file from any remote that has it, not only
the named mirror remote. And if the named mirror remote is not the fastest
available remote with a file, that can speed things up.
It would be possible to make the assistant or watch command do a more
dynamic mirroring, that didn't need to scan every time.
Diffstat (limited to 'Command/Get.hs')
| -rw-r--r-- | Command/Get.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Command/Get.hs b/Command/Get.hs index 31a75c3e1..981c2245b 100644 --- a/Command/Get.hs +++ b/Command/Get.hs @@ -11,10 +11,10 @@ import Common.Annex import Command import qualified Remote import Annex.Content -import qualified Command.Move import Logs.Transfer import Annex.Wanted import GitAnnex.Options +import qualified Command.Move import Types.Key def :: [Command] @@ -22,11 +22,11 @@ def = [withOptions getOptions $ command "get" paramPaths seek SectionCommon "make content of annexed files available"] getOptions :: [Option] -getOptions = [Command.Move.fromOption] ++ keyOptions +getOptions = fromOption : keyOptions seek :: [CommandSeek] seek = - [ withField Command.Move.fromOption Remote.byNameWithUUID $ \from -> + [ withField fromOption Remote.byNameWithUUID $ \from -> withKeyOptions (startKeys from) $ withFilesInGit $ whenAnnexed $ start from ] |