diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-02-08 18:17:46 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-02-08 18:17:46 -0400 |
| commit | c1b69d1511cd9a6d63981f74f6d926d59dba7c8c (patch) | |
| tree | 7c6ed590595b24d6a65e6587c94a1bdf300b7764 /Command/Map.hs | |
| parent | c0ec5a35db54f45b14971ae61b42ccc64cb92f62 (diff) | |
fill color for host boxes
Diffstat (limited to 'Command/Map.hs')
| -rw-r--r-- | Command/Map.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Map.hs b/Command/Map.hs index 05fa25885..74005b521 100644 --- a/Command/Map.hs +++ b/Command/Map.hs @@ -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 |