From: benl@ouroborus.net <unknown>
Date: Thu, 24 Jun 2010 09:13:39 +0000 (+0000)
Subject: Fix warnings
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=cf1c939d4693519e4f23c0f4fcbe60f1e04adf3e

Fix warnings
---

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]