From c1b69d1511cd9a6d63981f74f6d926d59dba7c8c Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 8 Feb 2011 18:17:46 -0400
Subject: fill color for host boxes

---
 Command/Map.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Command/Map.hs')

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
-- 
cgit v1.2.3