From af2c2b198751e3bb712800fee20ac4b96ff7be28 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 14 Aug 1998 11:20:27 +0000
Subject: [PATCH] [project @ 1998-08-14 11:20:27 by sof] New function:
 mkIdVisible

---
 ghc/compiler/basicTypes/Id.lhs |    9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

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}
-- 
1.7.10.4