From 57169c9e8ddc449919490158eb852eb5aad86138 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 12 Dec 2000 13:27:18 +0000
Subject: [PATCH] [project @ 2000-12-12 13:27:18 by simonmar] Make the foreign
 export dynamic helper function "exported", so it doesn't
 get thrown away.

---
 ghc/compiler/deSugar/DsForeign.lhs |    8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/ghc/compiler/deSugar/DsForeign.lhs b/ghc/compiler/deSugar/DsForeign.lhs
index 65ddba6..ebc1e6d 100644
--- a/ghc/compiler/deSugar/DsForeign.lhs
+++ b/ghc/compiler/deSugar/DsForeign.lhs
@@ -20,9 +20,10 @@ import HsDecls		( extNameStatic )
 import CallConv
 import TcHsSyn		( TypecheckedForeignDecl )
 import CoreUtils	( exprType, mkInlineMe )
-import Id		( Id, idType, idName, mkVanillaId, mkSysLocal,
+import Id		( Id, idType, idName, mkId, mkSysLocal,
 			  setInlinePragma )
-import IdInfo		( neverInlinePrag )
+import IdInfo		( neverInlinePrag, vanillaIdInfo, IdFlavour(..),
+			  setFlavourInfo )
 import Literal		( Literal(..) )
 import Module		( Module, moduleUserString )
 import Name		( mkGlobalName, nameModule, nameOccName, getOccString, 
@@ -259,7 +260,8 @@ dsFExport fn_id ty mod_name ext_name cconv isDyn
 	helper_ty =  mkForAllTys tvs $
 		     mkFunTys wrapper_arg_tys io_res_ty
 
-	f_helper_glob = mkVanillaId helper_name helper_ty
+	f_helper_glob = mkId helper_name helper_ty
+				(vanillaIdInfo `setFlavourInfo` ExportedId)
 		      where
 			name	            = idName fn_id
 			mod	
-- 
1.7.10.4