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" "specify default key-value backend to use"
, Option ['k'] ["key"] (ReqArg (storestring "key") "KEY") , Option ['k'] ["key"] (ReqArg (storestring "key") "KEY")
"specify a key to use" "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" "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" "specify a repository to transfer content from"
] ]
where where

4
Remotes.hs
View file

@ -105,7 +105,9 @@ repoCost r = do
repoNotIgnored :: Git.Repo -> Annex Bool repoNotIgnored :: Git.Repo -> Annex Bool
repoNotIgnored r = do repoNotIgnored r = do
g <- Annex.gitRepo 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) if (not $ null name)
then return $ match name then return $ match name
else return $ notignored g else return $ notignored g