X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnIfaces.lhs;h=a81e8b6bdb90a9b6f12e3b4c71627bfa50d677a3;hb=52eed22df83f01b4fbe3d1c67abc5e3893e47d39;hp=32d61d791228fec0096e79a27b59d9bb9dd9e845;hpb=5e6242927839c8ddc73a55eb7828c0b7e4cc3ab2;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnIfaces.lhs b/ghc/compiler/rename/RnIfaces.lhs
index 32d61d7..a81e8b6 100644
--- 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}
 %*							*
 %*********************************************************