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

map improvements

Browse source 
added uuid.log repos

group repos by host

avoid displaying most urls

display remote names on edges

still some bugs
This commit is contained in:
Joey Hess 2011-02-03 22:20:55 -04:00
parent 0c7d17ae06
commit 17829be0fd
4 changed files with 119 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

3
UUID.hs
View file

@ -26,6 +26,7 @@ import Control.Monad.State
import System.Cmd.Utils
import System.IO
import qualified Data.Map as M
import Data.Maybe
import qualified GitRepo as Git
import Types
@ -72,7 +73,7 @@ getUUID r = do
where
cached g = Git.configGet g cachekey ""
updatecache g u = when (g /= r) $ Annex.setConfig cachekey u
cachekey = "remote." ++ Git.repoRemoteName r ++ ".annex-uuid"
cachekey = "remote." ++ fromMaybe "" (Git.repoRemoteName r) ++ ".annex-uuid"
getUncachedUUID :: Git.Repo -> UUID
getUncachedUUID r = Git.configGet r "annex.uuid" ""