[project @ 2000-01-28 20:52:37 by lewie]

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

diff --git a/ghc/compiler/basicTypes/Name.lhs b/ghc/compiler/basicTypes/Name.lhs
index 46e0a01..3b0cd48 100644 (file)
--- a/ghc/compiler/basicTypes/Name.lhs
+++ b/ghc/compiler/basicTypes/Name.lhs
@@ -11,7 +11,7 @@ module Name (
        -- The Name type
        Name,                                   -- Abstract
        mkLocalName, mkImportedLocalName, mkSysLocalName, 
-       mkTopName,
+       mkTopName, mkIPName,
        mkDerivedName, mkGlobalName, mkKnownKeyGlobal,
        mkWiredInIdName,   mkWiredInTyConName,
        maybeWiredInIdName, maybeWiredInTyConName,
@@ -133,6 +133,13 @@ mkTopName uniq mod fs
           n_occ  = mkSrcVarOcc (_PK_ ((_UNPK_ fs) ++ show uniq)),
           n_prov = LocalDef noSrcLoc NotExported }
 
+mkIPName :: Unique -> OccName -> Name
+mkIPName uniq occ
+  = Name { n_uniq = uniq,
+          n_sort = Local,
+          n_occ  = mkIPOcc occ,
+          n_prov = SystemProv }
+
 ------------------------- Wired in names -------------------------
 
 mkWiredInIdName :: Unique -> Module -> OccName -> Id -> Name