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

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