[project @ 2000-02-22 15:47:56 by panne]

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

diff --git a/ghc/compiler/rename/RnEnv.lhs b/ghc/compiler/rename/RnEnv.lhs
index b4bb690..0f47641 100644 (file)
--- a/ghc/compiler/rename/RnEnv.lhs
+++ b/ghc/compiler/rename/RnEnv.lhs
@@ -57,6 +57,7 @@ import Maybes         ( mapMaybe )
 %*********************************************************
 
 \begin{code}
+newImportedGlobalName :: ModuleName -> OccName -> Module -> RnM d Name
 newImportedGlobalName mod_name occ mod
   = getNameSupplyRn            `thenRn` \ (us, inst_ns, cache, ipcache) ->
     let
@@ -94,6 +95,7 @@ mkImportedGlobalName mod_name occ
   = lookupModuleRn mod_name `thenRn` \ mod ->
     newImportedGlobalName mod_name occ mod --(mkVanillaModule mod_name)
        
+mkImportedGlobalFromRdrName :: RdrName -> RnM d Name 
 mkImportedGlobalFromRdrName rdr_name
   | isQual rdr_name
   = mkImportedGlobalName (rdrNameModule rdr_name) (rdrNameOcc rdr_name)