[project @ 2000-11-27 15:25:25 by simonmar]
authorsimonmar <unknown>
Mon, 27 Nov 2000 15:25:25 +0000 (15:25 +0000)
committersimonmar <unknown>
Mon, 27 Nov 2000 15:25:25 +0000 (15:25 +0000)
one-character wibble

ghc/compiler/coreSyn/CoreTidy.lhs

index 382c79b..62d54f7 100644 (file)
@@ -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