X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Futils%2FGraphBase.hs;h=249626eb279c0a48767abfef54f7c835689754aa;hp=04eda9612013f94f35b2fe547e2e0caf91fec061;hb=86add45dbfb6f962b65e371143dd467ae783f9e7;hpb=b01110d1352de5d972d8fb63f28c244d2c1ff99b

diff --git a/compiler/utils/GraphBase.hs b/compiler/utils/GraphBase.hs
index 04eda96..249626e 100644
--- a/compiler/utils/GraphBase.hs
+++ b/compiler/utils/GraphBase.hs
@@ -31,9 +31,9 @@ import UniqFM
 --				Smith, Ramsey, Holloway - PLDI 2004.
 --
 type Triv k cls color
-	=  cls 			-- ^ the class of the node we're trying to color.
-	-> UniqSet k		-- ^ the node's neighbors.
-	-> UniqSet color 	-- ^ the node's exclusions.
+	=  cls 			-- the class of the node we're trying to color.
+	-> UniqSet k		-- the node's neighbors.
+	-> UniqSet color 	-- the node's exclusions.
 	-> Bool