SPARC NCG: Fix some haddock problems.

3 files changed, 7 insertions, 7 deletions

diff --git a/compiler/nativeGen/RegAlloc/Linear/Base.hs b/compiler/nativeGen/RegAlloc/Linear/Base.hs
index a986c0ff32..3f9146cc02 100644
--- a/compiler/nativeGen/RegAlloc/Linear/Base.hs
+++ b/compiler/nativeGen/RegAlloc/Linear/Base.hs
@@ -105,9 +105,10 @@ data RegAllocStats
 data RA_State 
 	= RA_State 
 
+	{ 
 	-- | the current mapping from basic blocks to 
 	-- 	the register assignments at the beginning of that block.
-	{ ra_blockassig	:: BlockAssignment
+	  ra_blockassig	:: BlockAssignment
 	
 	-- | free machine registers
 	, ra_freeregs   :: {-#UNPACK#-}!FreeRegs
diff --git a/compiler/nativeGen/RegAlloc/Linear/Main.hs b/compiler/nativeGen/RegAlloc/Linear/Main.hs
index 46954cec75..3b1d5ca1e0 100644
--- a/compiler/nativeGen/RegAlloc/Linear/Main.hs
+++ b/compiler/nativeGen/RegAlloc/Linear/Main.hs
@@ -247,8 +247,8 @@ linearRA
 	-> BlockId			-- ^ id of the current block, for debugging.
 	-> [LiveInstr]			-- ^ liveness annotated instructions in this block.
 
-	-> RegM ( [Instr]		-- ^ instructions after register allocation
-		, [NatBasicBlock])	-- ^ fresh blocks of fixup code.
+	-> RegM ( [Instr]		--   instructions after register allocation
+		, [NatBasicBlock])	--   fresh blocks of fixup code.
 
 
 linearRA _          accInstr accFixup _ []
diff --git a/compiler/nativeGen/RegAlloc/Linear/StackMap.hs b/compiler/nativeGen/RegAlloc/Linear/StackMap.hs
index 56382aa804..56569415bb 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 }