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

New function: mkIdVisible

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}