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

fill color for host boxes

Browse source
This commit is contained in:
Joey Hess 2011-02-08 18:17:46 -04:00
parent c0ec5a35db
commit c1b69d1511
2 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/Map.hs
View file

@ -100,7 +100,7 @@ nodeId r =
node :: (M.Map UUID String) -> [Git.Repo] -> Git.Repo -> String
node umap fullinfo r = unlines $ n:edges
where
n = Dot.subGraph (hostname r) (basehostname r) $
n = Dot.subGraph (hostname r) (basehostname r) "grey" $
decorate $ Dot.graphNode (nodeId r) (repoName umap r)
edges = map (edge umap fullinfo r) (Git.remotes r)
decorate