From 8ab093423360990fc108d86098fc6bfb3b555269 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Tue, 6 Feb 2007 12:24:56 +0000
Subject: [PATCH] Rename local variable (no semantic effect)

---
 compiler/specialise/Rules.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/specialise/Rules.lhs b/compiler/specialise/Rules.lhs
index 2798ca1..10eb3f8 100644
--- a/compiler/specialise/Rules.lhs
+++ b/compiler/specialise/Rules.lhs
@@ -597,7 +597,7 @@ match_var menv subst@(tv_subst, id_subst, binds) v1 e2
 		| otherwise	-- No renaming to do on e2
 		-> Just (tv_subst, extendVarEnv id_subst v1' e2, binds)
 
-	Just e2' | tcEqExprX (nukeRnEnvL rn_env) e2' e2 
+	Just e1' | tcEqExprX (nukeRnEnvL rn_env) e1' e2 
 		 -> Just subst
 
 		 | otherwise
-- 
1.7.10.4