From: sof <unknown>
Date: Mon, 1 Jun 1998 12:28:39 +0000 (+0000)
Subject: [project @ 1998-06-01 12:28:39 by sof]
X-Git-Tag: Approx_2487_patches~639
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ada91343c51d825906ee7e40bbb44e0b2291d45f;p=ghc-hetmet.git

[project @ 1998-06-01 12:28:39 by sof]
Turn off pruning of newtypes, the code generator may need to see constructor
---

diff --git a/ghc/compiler/rename/RnIfaces.lhs b/ghc/compiler/rename/RnIfaces.lhs
index 8092a6d..b42efb0 100644
--- a/ghc/compiler/rename/RnIfaces.lhs
+++ b/ghc/compiler/rename/RnIfaces.lhs
@@ -618,6 +618,10 @@ getNonWiredDataDecl needed_name
 		    ty_decl@(TyData new_or_data context tycon tyvars condecls derivings pragmas src_loc)
   |  needed_name == tycon_name
   && opt_PruneTyDecls
+        -- don't prune newtypes, as the code generator may
+	-- want to peer inside a newtype type constructor
+	-- (ClosureInfo.fun_result_ty is the culprit.)
+  && not (new_or_data == NewType)
   && not (nameUnique needed_name `elem` cCallishTyKeys)		
 	-- Hack!  Don't prune these tycons whose constructors
 	-- the desugarer must be able to see when desugaring