tweak

1 files changed, 2 insertions, 0 deletions

diff --git a/Dot.hs b/Dot.hs
index a21d70536..592b21f69 100644
--- a/Dot.hs
+++ b/Dot.hs
@@ -45,6 +45,7 @@ subGraph :: String -> String -> String -> String -> String
 subGraph subid l color s =
 	"subgraph " ++ name ++ " {\n" ++
 		ii setlabel ++
+		ii setfilled ++
 		ii setcolor ++
 		ii s ++
 		indent "}"
@@ -52,6 +53,7 @@ subGraph subid l color s =
 		-- the "cluster_" makes dot draw a box
 		name = quote ("cluster_" ++ subid)
 		setlabel = "label=" ++ quote l
+		setfilled = "style=" ++ quote "filled"
 		setcolor = "fillcolor=" ++ quote color
 		ii x = (indent $ indent x) ++ "\n"