X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FId.lhs;h=aa086a19e534243d7fc052b05ba3428e5ddb7a3b;hb=8c0bd142f0f03560936d54fea644451283c9ec91;hp=1c8e02619761e2b76e32fcac0e02f1bdc2503cb4;hpb=90bf51fc2336d45c6bdf347142ac14a3e68b85c1;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/Id.lhs b/ghc/compiler/basicTypes/Id.lhs
index 1c8e026..aa086a1 100644
--- a/ghc/compiler/basicTypes/Id.lhs
+++ b/ghc/compiler/basicTypes/Id.lhs
@@ -22,6 +22,7 @@ module Id (
 
 	-- Predicates
 	omitIfaceSigForId,
+	exportWithOrigOccName,
 	externallyVisibleId,
 	idFreeTyVars, 
 
@@ -248,6 +249,12 @@ omitIfaceSigForId id
 		-- the instance decl
 
 	other	       -> False	-- Don't omit!
+
+-- Certain names must be exported with their original occ names, because
+-- these names are bound by either a class declaration or a data declaration
+-- or an explicit user export.
+exportWithOrigOccName :: Id -> Bool
+exportWithOrigOccName id = omitIfaceSigForId id || isUserExportedId id
 \end{code}