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

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
 
 
 
+