X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FRegAlloc%2FLiveness.hs;h=0c289c16e9ecd0cb8358cacef0661da038d07abb;hb=388e3356f71daffa62f1d4157e1e07e4c68f218a;hp=8faab5af92d8f1ebb1bf4512109c7f2c3a54adbd;hpb=b04a210e26ca57242fd052f2aa91011a80b76299;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegAlloc/Liveness.hs b/compiler/nativeGen/RegAlloc/Liveness.hs
index 8faab5a..0c289c1 100644
--- a/compiler/nativeGen/RegAlloc/Liveness.hs
+++ b/compiler/nativeGen/RegAlloc/Liveness.hs
@@ -465,7 +465,8 @@ patchEraseLive patchF cmm
 
 	patchCmm (CmmProc info label params (ListGraph comps))
 	 | LiveInfo static id blockMap	<- info
-	 = let 	patchRegSet set	= mkUniqSet $ map patchF $ uniqSetToList set
+	 = let 	
+	 	patchRegSet set	= mkUniqSet $ map patchF $ uniqSetToList set
 		blockMap'	= mapBlockEnv patchRegSet blockMap
 
 		info'		= LiveInfo static id blockMap'
@@ -781,5 +782,3 @@ liveness1 liveregs blockmap instr
                                         live_branch_only)
 
 
-
-