X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2Ftypecheck%2FTcRnDriver.lhs;h=8df2efcbf3518a5573b4cf42cf3aa8f6f6c2b544;hb=29da2cf3011c292bc4261601aff85afb13e24d54;hp=227d5720b075e3d2f5df9d772febe747c2c21ef1;hpb=433d69e5f54d14ab15e5bcb1abe1ea94517e8d9a;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcRnDriver.lhs b/ghc/compiler/typecheck/TcRnDriver.lhs
index 227d572..8df2efc 100644
--- a/ghc/compiler/typecheck/TcRnDriver.lhs
+++ b/ghc/compiler/typecheck/TcRnDriver.lhs
@@ -49,7 +49,7 @@ import RnEnv		( lookupSrcOcc_maybe )
 import RnSource		( rnSrcDecls, rnTyClDecls, checkModDeprec )
 import PprCore		( pprIdRules, pprCoreBindings )
 import CoreSyn		( IdCoreRule, bindersOfBinds )
-import ErrUtils		( mkDumpDoc, showPass )
+import ErrUtils		( Messages, mkDumpDoc, showPass )
 import Id		( mkExportedLocalId, isLocalId, idName, idType )
 import Var		( Var )
 import Module           ( mkHomeModule, mkModuleName, moduleName, moduleEnvElts )
@@ -128,7 +128,7 @@ import Maybe		( isJust )
 \begin{code}
 tcRnModule :: HscEnv 
 	   -> Located (HsModule RdrName)
-	   -> IO (Maybe TcGblEnv)
+	   -> IO (Messages, Maybe TcGblEnv)
 
 tcRnModule hsc_env (L loc (HsModule maybe_mod exports 
 				import_decls local_decls mod_deprec))
@@ -499,7 +499,7 @@ setInteractiveContext icxt thing_inside
 \begin{code}
 tcRnExtCore :: HscEnv 
 	    -> HsExtCore RdrName
-	    -> IO (Maybe ModGuts)
+	    -> IO (Messages, Maybe ModGuts)
 	-- Nothing => some error occurred 
 
 tcRnExtCore hsc_env (HsExtCore this_mod decls src_binds)