tweak
This commit is contained in:
parent
c1b69d1511
commit
81e045a539
2 changed files with 3 additions and 1 deletions
|
@ -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) "grey" $
|
||||
n = Dot.subGraph (hostname r) (basehostname r) "lightblue" $
|
||||
decorate $ Dot.graphNode (nodeId r) (repoName umap r)
|
||||
edges = map (edge umap fullinfo r) (Git.remotes r)
|
||||
decorate
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue