[project @ 2000-09-22 15:56:12 by simonpj]

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

diff --git a/ghc/compiler/rename/RnIfaces.lhs b/ghc/compiler/rename/RnIfaces.lhs
index 6a24e25..ef23e33 100644 (file)
--- a/ghc/compiler/rename/RnIfaces.lhs
+++ b/ghc/compiler/rename/RnIfaces.lhs
@@ -41,19 +41,18 @@ import ParseIface   ( parseIface, IfaceStuff(..) )
 
 import Name            ( Name {-instance NamedThing-}, nameOccName,
                          nameModule, isLocallyDefined, 
-                         isWiredInName, nameUnique, NamedThing(..),
+                         isWiredInName, NamedThing(..),
                          elemNameEnv, extendNameEnv
                         )
-import Module          ( Module, moduleString, pprModule,
-                         mkVanillaModule, pprModuleName,
-                         moduleUserString, moduleName, isLocalModule,
+import Module          ( Module, mkVanillaModule, pprModuleName,
+                         moduleName, isLocalModule,
                          ModuleName, WhereFrom(..),
                        )
 import RdrName         ( RdrName, rdrNameOcc )
 import NameSet
 import SrcLoc          ( mkSrcLoc, SrcLoc )
 import PrelInfo                ( cCallishTyKeys )
-import Maybes          ( MaybeErr(..), maybeToBool, orElse )
+import Maybes          ( maybeToBool )
 import Unique          ( Uniquable(..) )
 import StringBuffer     ( hGetStringBuffer )
 import FastString      ( mkFastString )
@@ -953,6 +952,7 @@ mkImportExportInfo this_mod export_avails exports
 
        export_info = [(m, sortExport as) | (m,as) <- fmToList export_fm]
     in
+    traceRn (text "Modules in Ifaces: " <+> fsep (map ppr (keysFM mod_map)))   `thenRn_`
     returnRn (export_info, import_info)
 
 
@@ -1203,10 +1203,6 @@ getDeclErr name
          ptext SLIT("from module") <+> quotes (ppr (nameModule name))
         ]
 
-getDeclWarn name loc
-  = sep [ptext SLIT("Failed to find (optional) interface decl for") <+> quotes (ppr name),
-        ptext SLIT("desired at") <+> ppr loc]
-
 importDeclWarn name
   = sep [ptext SLIT(
     "Compiler tried to import decl from interface file with same name as module."),