[project @ 2000-04-03 09:52:28 by simonpj]

[ghc-hetmet.git] / ghc / compiler / rename / RnMonad.lhs

diff --git a/ghc/compiler/rename/RnMonad.lhs b/ghc/compiler/rename/RnMonad.lhs
index 1d0f35f..ac646e9 100644 (file)
--- a/ghc/compiler/rename/RnMonad.lhs
+++ b/ghc/compiler/rename/RnMonad.lhs
@@ -39,7 +39,7 @@ import ErrUtils               ( addShortErrLocLine, addShortWarnLocLine,
                        )
 import Name            ( Name, OccName, NamedThing(..),
                          isLocallyDefinedName, nameModule, nameOccName,
-                         decode, mkLocalName
+                         decode, mkLocalName, mkUnboundName
                        )
 import Module          ( Module, ModuleName, ModuleHiMap, SearchPath, WhereFrom,
                          mkModuleHiMaps, moduleName, mkVanillaModule, mkSearchPath
@@ -431,14 +431,6 @@ emptyIfaces = Ifaces { iImpModInfo = emptyFM,
                       iDeprecs = emptyNameEnv
              }
 
--- mkUnboundName makes a place-holder Name; it shouldn't be looked at except possibly
--- during compiler debugging.
-mkUnboundName :: RdrName -> Name
-mkUnboundName rdr_name = mkLocalName unboundKey (rdrNameOcc rdr_name) noSrcLoc
-
-isUnboundName :: Name -> Bool
-isUnboundName name = getUnique name == unboundKey
-
 builtins :: FiniteMap (ModuleName,OccName) Name
 builtins = 
    bagToFM (