From cf1c939d4693519e4f23c0f4fcbe60f1e04adf3e Mon Sep 17 00:00:00 2001
From: "benl@ouroborus.net" <unknown>
Date: Thu, 24 Jun 2010 09:13:39 +0000
Subject: [PATCH] Fix warnings

---
 compiler/nativeGen/RegAlloc/Liveness.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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]
-- 
1.7.10.4