[project @ 2000-11-14 12:07:44 by simonpj]

[ghc-hetmet.git] / ghc / compiler / basicTypes / Id.lhs

diff --git a/ghc/compiler/basicTypes/Id.lhs b/ghc/compiler/basicTypes/Id.lhs
index 57edb62..c26f7aa 100644 (file)
--- a/ghc/compiler/basicTypes/Id.lhs
+++ b/ghc/compiler/basicTypes/Id.lhs
@@ -23,7 +23,6 @@ module Id (
 
        -- Predicates
        omitIfaceSigForId, isDeadBinder,
-       exportWithOrigOccName,
        externallyVisibleId,
        isIP,
        isSpecPragmaId, isRecordSelector,
@@ -292,12 +291,6 @@ 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 || isExportedId id
 \end{code}
 
 \begin{code}