From 41676ec859d1332d4c4ec56c9ea8b0aa9cedf606 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Thu, 17 Jan 2008 13:40:57 +0000
Subject: [PATCH] Fix egregious error in earlier "Record evaluated-ness" patch

---
 compiler/simplCore/SimplEnv.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/simplCore/SimplEnv.lhs b/compiler/simplCore/SimplEnv.lhs
index 10e243c..bb98032 100644
--- a/compiler/simplCore/SimplEnv.lhs
+++ b/compiler/simplCore/SimplEnv.lhs
@@ -526,7 +526,7 @@ simplLamBndr :: SimplEnv -> Var -> SimplM (SimplEnv, Var)
 -- The "{=(a,b)}" is an unfolding we can't reconstruct otherwise.
 simplLamBndr env bndr
   | isId bndr && hasSomeUnfolding old_unf = seqId id2 `seq` return (env2, id2)  -- Special case
-  | otherwise 				  = seqId id1 `seq` return (env1, id1) 	-- Normal case
+  | otherwise 				  = simplBinder env bndr	 	-- Normal case
   where
     old_unf = idUnfolding bndr
     (env1, id1) = substIdBndr env bndr
-- 
1.7.10.4