X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FRegAlloc%2FLinear%2FMain.hs;h=3b1d5ca1e00e2d23a40020751095f521d635cf25;hb=2984649a87ffad1753be0c950ed18cfc40f55fea;hp=46954cec7562c1ddffc8aee70255d5937371bda6;hpb=a842f3d5e7c9026a642589948ef67dbaf6272396;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegAlloc/Linear/Main.hs b/compiler/nativeGen/RegAlloc/Linear/Main.hs
index 46954ce..3b1d5ca 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 _ []