[project @ 2001-02-20 09:41:48 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 32d61d7..a81e8b6 100644 (file)
--- a/ghc/compiler/rename/RnIfaces.lhs
+++ b/ghc/compiler/rename/RnIfaces.lhs
@@ -6,7 +6,6 @@
 \begin{code}
 module RnIfaces
      (
-       getInterfaceExports,
        recordLocalSlurps, 
        mkImportInfo, 
 
@@ -29,7 +28,7 @@ import RnHsSyn                ( RenamedHsDecl, RenamedTyClDecl,
                          extractHsTyNames, extractHsCtxtTyNames, 
                          tyClDeclFVs, ruleDeclFVs, instDeclFVs
                        )
-import RnHiFiles       ( tryLoadInterface, loadHomeInterface, loadInterface, 
+import RnHiFiles       ( tryLoadInterface, loadHomeInterface, 
                          loadOrphanModules
                        )
 import RnSource                ( rnTyClDecl, rnInstDecl, rnIfaceRuleDecl )
@@ -63,24 +62,6 @@ import Util          ( sortLt )
 
 %*********************************************************
 %*                                                     *
-\subsection{Getting what a module exports}
-%*                                                     *
-%*********************************************************
-
-@getInterfaceExports@ is called only for directly-imported modules.
-
-\begin{code}
-getInterfaceExports :: ModuleName -> WhereFrom -> RnMG (Module, [(ModuleName,Avails)])
-getInterfaceExports mod_name from
-  = loadInterface doc_str mod_name from        `thenRn` \ iface ->
-    returnRn (mi_module iface, mi_exports iface)
-  where
-      doc_str = sep [ppr mod_name, ptext SLIT("is directly imported")]
-\end{code}
-
-
-%*********************************************************
-%*                                                     *
 \subsection{Keeping track of what we've slurped, and version numbers}
 %*                                                     *
 %*********************************************************