X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FGraphBase.hs;h=04eda9612013f94f35b2fe547e2e0caf91fec061;hb=b8a64b8ec9cd3d8f6e3f23e44312c4903eccac45;hp=b980ba22617cb8ee3e904605ba6a9b5202d01d76;hpb=a8312580d6f089d153d8af668484d4c2eb75e8a8;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/GraphBase.hs b/compiler/nativeGen/GraphBase.hs
index b980ba2..04eda96 100644
--- a/compiler/nativeGen/GraphBase.hs
+++ b/compiler/nativeGen/GraphBase.hs
@@ -16,6 +16,7 @@ where
 import UniqSet
 import UniqFM
 
+
 -- | A fn to check if a node is trivially colorable
 --	For graphs who's color classes are disjoint then a node is 'trivially colorable'
 --	when it has less neighbors and exclusions than available colors for that node.
@@ -45,6 +46,7 @@ data Graph k cls color
 	-- | All active nodes in the graph.
 	  graphMap		:: UniqFM (Node k cls color)  }
 
+
 -- | An empty graph.	
 initGraph :: Graph k cls color
 initGraph
@@ -106,3 +108,4 @@ newNode k cls
 
 
 
+