From: simonpj@microsoft.com <unknown>
Date: Tue, 27 Jul 2010 13:16:59 +0000 (+0000)
Subject: Improvement to SimplUtils.mkLam
X-Git-Tag: 2010-11-18~399
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f2e74c8829d283aab5024731506f505ec4d5c7cb;p=ghc-hetmet.git

Improvement to SimplUtils.mkLam
---

diff --git a/compiler/simplCore/SimplUtils.lhs b/compiler/simplCore/SimplUtils.lhs
index 2664752..96857a3 100644
--- 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