diff options
author | Joey Hess <joey@kitenet.net> | 2011-02-03 18:55:12 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-02-03 19:05:15 -0400 |
commit | 0c7d17ae062c136e549cc9800dae85f3e3793237 (patch) | |
tree | 7452b6ab846e986466a7bd7a0fcbfacb3cd7cbcb /Remotes.hs | |
parent | 14bc885de96dd3ec52ab33ec6bbb02974d0a381c (diff) |
new map subcommand, basically working
Still todo:
- add repos from uuid.log that were not directly found
- group repos into their respective hosts
- display inaccessible repos and broken remote connections in red
- anonymize the url display somewhat, so the maps can be shared
- use uuid info to tell when two apparently different repos are actually
the same repo accessed in different ways
Diffstat (limited to 'Remotes.hs')
-rw-r--r-- | Remotes.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Remotes.hs b/Remotes.hs index 9f1e2ee50..89b403247 100644 --- a/Remotes.hs +++ b/Remotes.hs @@ -7,6 +7,7 @@ module Remotes ( list, + tryGitConfigRead, readConfigs, keyPossibilities, inAnnex, @@ -14,7 +15,8 @@ module Remotes ( byName, copyFromRemote, copyToRemote, - onRemote + onRemote, + repoConfig ) where import Control.Exception.Extensible @@ -77,7 +79,6 @@ tryGitConfigRead r then new : exchange ls new else old : exchange ls new - {- Reads the configs of all remotes. - - This has to be called before things that rely on eg, the UUID of @@ -92,9 +93,9 @@ tryGitConfigRead r - -} readConfigs :: Annex () readConfigs = do - g <- Annex.gitRepo remotesread <- Annex.getState Annex.remotesread unless remotesread $ do + g <- Annex.gitRepo allremotes <- filterM repoNotIgnored $ Git.remotes g let cheap = filter (not . Git.repoIsUrl) allremotes let expensive = filter Git.repoIsUrl allremotes |