X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FnativeGen%2FRegAlloc%2FLinear%2FStackMap.hs;h=56569415bb603cd6e81f96a6b0371b49e9a0d9a1;hp=56382aa804db023e398d022f11cb762a8ffb0afc;hb=2984649a87ffad1753be0c950ed18cfc40f55fea;hpb=e8043f339e23328e3457696589edaa1ab7d60a64

diff --git a/compiler/nativeGen/RegAlloc/Linear/StackMap.hs b/compiler/nativeGen/RegAlloc/Linear/StackMap.hs
index 56382aa..5656941 100644
--- a/compiler/nativeGen/RegAlloc/Linear/StackMap.hs
+++ b/compiler/nativeGen/RegAlloc/Linear/StackMap.hs
@@ -31,11 +31,10 @@ type StackSlot = Int
 
 data StackMap 
 	= StackMap 
+	{ -- | The slots that are still available to be allocated.
+	  stackMapFreeSlots	:: [StackSlot]
 
-	-- | The slots that are still available to be allocated.
-	{ stackMapFreeSlots	:: [StackSlot]
-
-	-- | Assignment of vregs to stack slots.
+	  -- | Assignment of vregs to stack slots.
 	, stackMapAssignment	:: UniqFM StackSlot }