X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Futils%2FGraphPpr.hs;h=8149b2aa86363e86ebef4a011ceb1085df9d17a1;hp=1df5158dc22f5db24ca159d0751d01796c697a7e;hb=c648345e3d82c0c40333bfd8ddea2633e21b08dc;hpb=b01110d1352de5d972d8fb63f28c244d2c1ff99b

diff --git a/compiler/utils/GraphPpr.hs b/compiler/utils/GraphPpr.hs
index 1df5158..8149b2a 100644
--- a/compiler/utils/GraphPpr.hs
+++ b/compiler/utils/GraphPpr.hs
@@ -58,9 +58,9 @@ dumpNode node
 dotGraph 
 	:: ( Uniquable k
 	   , Outputable k, Outputable cls, Outputable color)
-	=> (color -> SDoc)		-- | What graphviz color to use for each node color
-					--	It's usually safe to return X11 style colors here,
-					--	ie "red", "green" etc or a hex triplet #aaff55 etc
+	=> (color -> SDoc)  -- ^ What graphviz color to use for each node color
+			    --	It's usually safe to return X11 style colors here,
+			    --	ie "red", "green" etc or a hex triplet #aaff55 etc
 	-> Triv k cls color
 	-> Graph k cls color -> SDoc