Improvement to SimplUtils.mkLam

f2e74c88 · simonpj@microsoft.com · 5e3c9a59 · f2e74c88
Commit f2e74c88 authored Jul 27, 2010 by simonpj@microsoft.com
--- a/compiler/simplCore/SimplUtils.lhs
+++ b/compiler/simplCore/SimplUtils.lhs
@@ -1027,6 +1027,11 @@ mkLam _env bndrs body
 	co_vars  = tyVarsOfType co
 	bad bndr = isCoVar bndr && bndr `elemVarSet` co_vars      

+    mkLam' dflags bndrs body@(Lam {})
+      = mkLam' dflags (bndrs ++ bndrs1) body1
+      where
+        (bndrs1, body1) = collectBinders body
+
    mkLam' dflags bndrs body
      | dopt Opt_DoEtaReduction dflags,
        Just etad_lam <- tryEtaReduce bndrs body