From: sof <unknown>
Date: Fri, 14 Aug 1998 11:20:27 +0000 (+0000)
Subject: [project @ 1998-08-14 11:20:27 by sof]
X-Git-Tag: Approx_2487_patches~419
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=af2c2b198751e3bb712800fee20ac4b96ff7be28;p=ghc-hetmet.git

[project @ 1998-08-14 11:20:27 by sof]
New function: mkIdVisible
---

diff --git a/ghc/compiler/basicTypes/Id.lhs b/ghc/compiler/basicTypes/Id.lhs
index 1b68063..5d7d2db 100644
--- a/ghc/compiler/basicTypes/Id.lhs
+++ b/ghc/compiler/basicTypes/Id.lhs
@@ -16,7 +16,8 @@ module Id (
 	-- Construction and modification
 	mkId, mkIdWithNewUniq, mkIdWithNewName, mkIdWithNewType,
 	mkTemplateLocals, 
-	setIdVisibility, mkVanillaId,
+	setIdVisibility, mkIdVisible,
+	mkVanillaId,
 
 	-- DESTRUCTION (excluding pragmatic info)
 	idPrimRep,
@@ -112,7 +113,8 @@ import CmdLineOpts      ( opt_PprStyle_All )
 import Bag
 import IdInfo
 import Name	 	( nameUnique, isLocalName, mkSysLocalName,
-			  isWiredInName, setNameVisibility, changeUnique,
+			  isWiredInName, setNameVisibility, mkNameVisible,
+			  changeUnique,
 			  ExportFlag(..), Provenance,
 			  OccName(..), Name, Module,
 			  NamedThing(..)
@@ -264,6 +266,9 @@ setIdVisibility :: Maybe Module -> Unique -> Id -> Id
 setIdVisibility maybe_mod u id 
   = id {idName = setNameVisibility maybe_mod u (idName id)}
 
+mkIdVisible :: Module -> Unique -> Id -> Id
+mkIdVisible mod u id = id {idName = mkNameVisible mod u (idName id)}
+
 replaceIdInfo :: GenId ty -> IdInfo -> GenId ty
 replaceIdInfo id info = id {idInfo = info}
 \end{code}