diff options
author | Joey Hess <joey@kitenet.net> | 2011-02-03 22:20:55 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-02-03 22:20:55 -0400 |
commit | 17829be0fd2ec090c2854f05856e91ca4359e71c (patch) | |
tree | 6b6ab5d32d6bb99f518dba0232fd4c906c9778ca /UUID.hs | |
parent | 0c7d17ae062c136e549cc9800dae85f3e3793237 (diff) |
map improvements
added uuid.log repos
group repos by host
avoid displaying most urls
display remote names on edges
still some bugs
Diffstat (limited to 'UUID.hs')
-rw-r--r-- | UUID.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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" "" |