X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FnativeGen%2FRegAlloc%2FLiveness.hs;fp=compiler%2FnativeGen%2FRegAlloc%2FLiveness.hs;h=d7659b5c86a9f110f657f893ab24230dff6f4d22;hp=cc1bf12dd77876940c18aa9d67268b35e8ec7444;hb=cf1c939d4693519e4f23c0f4fcbe60f1e04adf3e;hpb=e1744771112465b5d43df1d7e38c8a7415b4705f

diff --git a/compiler/nativeGen/RegAlloc/Liveness.hs b/compiler/nativeGen/RegAlloc/Liveness.hs
index cc1bf12..d7659b5 100644
--- a/compiler/nativeGen/RegAlloc/Liveness.hs
+++ b/compiler/nativeGen/RegAlloc/Liveness.hs
@@ -686,7 +686,7 @@ checkIsReverseDependent
 checkIsReverseDependent sccs'
  = go emptyUniqSet sccs'
 
- where 	go blockssSeen []
+ where 	go _ []
 	 = Nothing
 	
 	go blocksSeen (AcyclicSCC block : sccs)
@@ -705,7 +705,7 @@ checkIsReverseDependent sccs'
 		 []		-> go blocksSeen' sccs
 		 bad : _	-> Just bad
 		
-	slurpJumpDestsOfBlock (BasicBlock blockId instrs)
+	slurpJumpDestsOfBlock (BasicBlock _ instrs)
 	 	= unionManyUniqSets
 		$ map (mkUniqSet . jumpDestsOfInstr) 
 		 	[ i | LiveInstr i _ <- instrs]