Two more small bugs in abstractFloats

[ghc-hetmet.git] / compiler / simplCore / Simplify.lhs

diff --git a/compiler/simplCore/Simplify.lhs b/compiler/simplCore/Simplify.lhs
index 5b8f304..d97249f 100644 (file)
--- a/compiler/simplCore/Simplify.lhs
+++ b/compiler/simplCore/Simplify.lhs
@@ -331,7 +331,7 @@ simplLazyBind env top_lvl is_rec bndr bndr1 rhs rhs_se
 
                else                            -- Do type-abstraction first
                     do { tick LetFloatFromLet
-                       ; (poly_binds, body3) <- abstractFloats tvs body_env2 body2
+                       ; (poly_binds, body3) <- abstractFloats tvs' body_env2 body2
                        ; rhs' <- mkLam tvs' body3
                        ; return (extendFloats env poly_binds, rhs') }