From 3284bc47d1eeeb1981d24989d1dc310d90c250de Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 27 Nov 2000 15:25:25 +0000
Subject: [PATCH] [project @ 2000-11-27 15:25:25 by simonmar] one-character
 wibble

---
 ghc/compiler/coreSyn/CoreTidy.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/coreSyn/CoreTidy.lhs b/ghc/compiler/coreSyn/CoreTidy.lhs
index 382c79b..62d54f7 100644
--- a/ghc/compiler/coreSyn/CoreTidy.lhs
+++ b/ghc/compiler/coreSyn/CoreTidy.lhs
@@ -285,7 +285,7 @@ tidyTopBind mod ext_ids env (Rec prs)
 			  where
 			    rhs'	  = tidyTopRhs final_env rhs
 			    (env', bndr') = tidyTopBinder mod ext_ids final_env
-							  rhs env bndr
+							  rhs' env bndr
 
 tidyTopRhs :: TopTidyEnv -> CoreExpr -> CoreExpr
 	-- Just an impedence matcher
-- 
1.7.10.4