[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 (file)
--- 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