diff options
| author |  Joey Hess <joey@kitenet.net> | 2010-10-23 12:35:10 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2010-10-23 12:35:10 -0400 |
| commit | 2fbbbd34bcf8e925f84d96510eb063bdfbfe3f9b (patch) | |
| tree | 887c87998c2cd4df03f08de3b405bfcb96487563 /Remotes.hs | |
| parent | f4e2dde8a8ceaf689ec5391174b53cb1b213ea8b (diff) | |
store from and to repositories separately
Diffstat (limited to 'Remotes.hs')
| -rw-r--r-- | Remotes.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Remotes.hs b/Remotes.hs index 48ab9ef8c..f24da2c22 100644 --- a/Remotes.hs +++ b/Remotes.hs @@ -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 |