From f2e74c8829d283aab5024731506f505ec4d5c7cb Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Tue, 27 Jul 2010 13:16:59 +0000
Subject: [PATCH] Improvement to SimplUtils.mkLam

---
 compiler/simplCore/SimplUtils.lhs |    5 +++++
 1 file changed, 5 insertions(+)

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
-- 
1.7.10.4