X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcoreSyn%2FCoreUnfold.lhs;h=d06fd93cb3ed07481955c23b965ffa69d8776677;hb=d0f325ce37d6ee322168e44392f10e0ed52f8294;hp=5d285ffd2dc8a0526bf6254b33ab6742893f541a;hpb=8b935dd5c2679476b47543c48b5a65ec11b6ba24;p=ghc-hetmet.git

diff --git a/ghc/compiler/coreSyn/CoreUnfold.lhs b/ghc/compiler/coreSyn/CoreUnfold.lhs
index 5d285ff..d06fd93 100644
--- a/ghc/compiler/coreSyn/CoreUnfold.lhs
+++ b/ghc/compiler/coreSyn/CoreUnfold.lhs
@@ -53,6 +53,7 @@ import Id		( Id, idType, getIdArity,  isBottomingId, isDataCon,
 			  IdSet )
 import PrimOp		( fragilePrimOp, primOpCanTriggerGC )
 import IdInfo		( ArityInfo(..), InlinePragInfo(..) )
+import Name		( isExported )
 import Literal		( isNoRepLit )
 import TyCon		( tyConFamilySize )
 import Type		( splitAlgTyConApp_maybe )
@@ -513,7 +514,9 @@ rule this out.  Since ManyOcc doesn't record FunOcc/ArgOcc
 inlineUnconditionally :: (Id,BinderInfo) -> Bool
 
 inlineUnconditionally (id, occ_info)
-  |  idMustNotBeINLINEd id = False
+  |  idMustNotBeINLINEd id 
+  || isExported id
+  =  False
 
   |  isOneSameSCCFunOcc occ_info
   && idWantsToBeINLINEd id = True