X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Futils%2FGraphBase.hs;h=249626eb279c0a48767abfef54f7c835689754aa;hb=4fa44a3ae9c36222ccb460ba3ed24e46bf7c70ae;hp=3948c81a6ab2f0644e3d7fe2a4288e30beb7a187;hpb=727fae32ea0b6ca6ebdf1b3137649813e4d7ac3d;p=ghc-hetmet.git

diff --git a/compiler/utils/GraphBase.hs b/compiler/utils/GraphBase.hs
index 3948c81..249626e 100644
--- a/compiler/utils/GraphBase.hs
+++ b/compiler/utils/GraphBase.hs
@@ -14,7 +14,7 @@ module GraphBase (
 where
 
 import UniqSet
-import LazyUniqFM
+import UniqFM
 
 
 -- | A fn to check if a node is trivially colorable
@@ -31,9 +31,9 @@ import LazyUniqFM
 --				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