From b28e7f858c020e23abc5cdd5b064837458d48f13 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 4 Oct 2001 10:48:19 +0000
Subject: [PATCH] [project @ 2001-10-04 10:48:19 by simonpj] More healing

---
 ghc/compiler/simplCore/Simplify.lhs |    5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/ghc/compiler/simplCore/Simplify.lhs b/ghc/compiler/simplCore/Simplify.lhs
index 2edb45b..13918ad 100644
--- a/ghc/compiler/simplCore/Simplify.lhs
+++ b/ghc/compiler/simplCore/Simplify.lhs
@@ -565,10 +565,7 @@ completeLazyBind env top_lvl old_bndr new_bndr new_rhs
 		   | otherwise    = new_bndr_info `setUnfoldingInfo` unfolding
 	unfolding = mkUnfolding (isTopLevel top_lvl) new_rhs
 
-		-- Don't fiddle with the IdInfo of a constructor
-		-- wrapper or other GlobalId.
-	final_id | isLocalId new_bndr = new_bndr `setIdInfo` info_w_unf
-		 | otherwise	      = new_bndr
+	final_id = new_bndr `setIdInfo` info_w_unf
     in
 		-- These seqs forces the Id, and hence its IdInfo,
 		-- and hence any inner substitutions
-- 
1.7.10.4