mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

store from and to repositories separately

Browse source
This commit is contained in:
Joey Hess 2010-10-23 12:35:10 -04:00
parent f4e2dde8a8
commit 2fbbbd34bc
2 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Commands.hs
View file

@ -62,9 +62,9 @@ options = [
"specify default key-value backend to use"
, Option ['k'] ["key"] (ReqArg (storestring "key") "KEY")
"specify a key to use"
, Option ['t'] ["to"] (ReqArg (storestring "repository") "REPOSITORY")
, Option ['t'] ["to"] (ReqArg (storestring "torepository") "REPOSITORY")
"specify a repository to transfer content to"
, Option ['f'] ["from"] (ReqArg (storestring "repository") "REPOSITORY")
, Option ['f'] ["from"] (ReqArg (storestring "fromrepository") "REPOSITORY")
"specify a repository to transfer content from"
]
where

4
Remotes.hs
View file

@ -105,7 +105,9 @@ repoCost r = do
repoNotIgnored :: Git.Repo -> Annex Bool
repoNotIgnored r = do
g <- Annex.gitRepo
name <- Annex.flagGet "repository"
fromName <- Annex.flagGet "fromrepository"
toName <- Annex.flagGet "torepository"
let name = if (not $ null fromName) then fromName else toName
if (not $ null name)
then return $ match name
else return $ notignored g