X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcRnDriver.lhs;h=59d790f334bf205d6573ccc6a571eac666bd4a07;hb=d1652879c78b51f3caf7ffb9e49460012629fa62;hp=29299a7a8945ea26c7b6842c9b5d010d589b7589;hpb=ec53c99c914b874e5957a4ab4fe768f972ff2197;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcRnDriver.lhs b/ghc/compiler/typecheck/TcRnDriver.lhs
index 29299a7..59d790f 100644
--- a/ghc/compiler/typecheck/TcRnDriver.lhs
+++ b/ghc/compiler/typecheck/TcRnDriver.lhs
@@ -10,7 +10,7 @@ module TcRnDriver (
 #endif
 	tcRnModule, 
 	tcTopSrcDecls,
-	tcRnIface, tcRnExtCore
+	tcRnExtCore
     ) where
 
 #include "HsVersions.h"
@@ -42,7 +42,7 @@ import TcEnv		( tcExtendGlobalValEnv, tcLookupGlobal )
 import TcRules		( tcRules )
 import TcForeign	( tcForeignImports, tcForeignExports )
 import TcInstDcls	( tcInstDecls1, tcInstDecls2 )
-import TcIface		( typecheckIface, tcExtCoreBindings )
+import TcIface		( tcExtCoreBindings )
 import TcSimplify	( tcSimplifyTop )
 import TcTyClsDecls	( tcTyAndClassDecls )
 import LoadIface	( loadOrphanModules )
@@ -199,24 +199,6 @@ tcRnModule hsc_env
 \end{code}
 
 
-%*********************************************************
-%*						 	 *
-\subsection{Closing up the interface decls}
-%*							 *
-%*********************************************************
-
-Suppose we discover we don't need to recompile.   Then we start from the
-IfaceDecls in the ModIface, and fluff them up by sucking in all the decls they need.
-
-\begin{code}
-tcRnIface :: HscEnv
-	  -> ModIface 	-- Get the decls from here
-	  -> IO ModDetails
-tcRnIface hsc_env iface
-  = initIfaceIO hsc_env (mi_deps iface) (typecheckIface iface)
-\end{code}
-
-
 %************************************************************************
 %*									*
 		The interactive interface 
@@ -905,7 +887,7 @@ checkMain
 	 let { main_mod = case mb_main_mod of {
 				Just mod -> mkModuleName mod ;
 				Nothing  -> mAIN_Name } ;
-	        main_fn  = case mb_main_fn of {
+	       main_fn  = case mb_main_fn of {
 				Just fn -> mkRdrUnqual (mkVarOcc (mkFastString fn)) ;
 				Nothing -> main_RDR_Unqual } } ;