X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FRegAllocColor.hs;fp=compiler%2FnativeGen%2FRegAllocColor.hs;h=30361b20bdb0fd39567b140261716685467002cc;hb=5cb15e98b4d6d56f6b4652e56691e45463134c87;hp=51a0bffbc6c9f7efa4c6e8ff05497e202182bd17;hpb=601414c1ef664e0b9e4e45db46e115b3a9e8632d;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegAllocColor.hs b/compiler/nativeGen/RegAllocColor.hs
index 51a0bff..30361b2 100644
--- a/compiler/nativeGen/RegAllocColor.hs
+++ b/compiler/nativeGen/RegAllocColor.hs
@@ -48,9 +48,9 @@ regAlloc
 	-> UniqFM (UniqSet Reg)		-- ^ the registers we can use for allocation
 	-> UniqSet Int			-- ^ the set of available spill slots.
 	-> [LiveCmmTop]			-- ^ code annotated with liveness information.
-	-> UniqSM 
-		( [NatCmmTop]		-- ^ code with registers allocated.
-		, [RegAllocStats] )	-- ^ stats for each stage of allocation
+	-> UniqSM ( [NatCmmTop], [RegAllocStats] )
+           -- ^ code with registers allocated and stats for each stage of
+           -- allocation
 		
 regAlloc dflags regsFree slotsFree code
  = do