[allow specification of headers for graph dot file
John Meacham <john@repetae.net>**20060430013217] hunk ./Util/Graphviz.hs 23
-graphviz' :: Graph g => g a b -> (a -> [(String,String)]) -> (b -> [(String,String)]) -> String
-graphviz' g fnode fedge = graphviz g "fgl" fnode fedge  (8.5,11.0) (1,1) Landscape
+graphviz' :: Graph g => g a b -> [(String,String)] -> (a -> [(String,String)]) -> (b -> [(String,String)]) -> String
+graphviz' g headers fnode fedge = graphviz g "fgl" headers fnode fedge  (8.5,11.0) (1,1) Landscape
hunk ./Util/Graphviz.hs 36
-sl a = " [" ++ foldr ($) "]" (intersperse (',':) (map f a)) where
-    f (x,y) = ((x ++ " = " ++  (show y)) ++)
+sl a = " [" ++ foldr ($) "]" (intersperse (',':) (map showEq a)) where
hunk ./Util/Graphviz.hs 38
+showEq :: (String,String) -> String -> String
+showEq (x,y) = ((x ++ " = " ++  (show y)) ++)
hunk ./Util/Graphviz.hs 45
+                          -> [(String,String)]
hunk ./Util/Graphviz.hs 58
-graphviz g t fnode fedge (w, h) p@(pw', ph') o =
+graphviz g t headers fnode fedge (w, h) p@(pw', ph') o =
hunk ./Util/Graphviz.hs 69
-	    ++"\tmargin = \"0\"\n"
-	    ++"\tpage = \""++ps++"\"\n"
-	    ++"\tsize = \""++gs++"\"\n"
-	    ++o2s o
-	    ++"\tratio = \"fill\"\n"
+--	    ++"\tmargin = \"0\"\n"
+--	    ++"\tpage = \""++ps++"\"\n"
+--	    ++"\tsize = \""++gs++"\"\n"
+            ++ concatMap (\x -> showEq x "\n") headers
+	    ++ o2s o
+--	    ++"\tratio = \"fill\"\n"