From: simonmar <unknown>
Date: Mon, 27 Nov 2000 15:25:25 +0000 (+0000)
Subject: [project @ 2000-11-27 15:25:25 by simonmar]
X-Git-Tag: Approximately_9120_patches~3235
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3284bc47d1eeeb1981d24989d1dc310d90c250de;p=ghc-hetmet.git

[project @ 2000-11-27 15:25:25 by simonmar]
one-character wibble
---

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