X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcRnDriver.lhs;h=bd7630397173de7006c61ba191bd5b8b9fa31d04;hp=88695bcf9dd96526cf46eb418f550a027c65dab7;hb=cae75f82226638691cfa1e85fc168f4b65ddce4d;hpb=35c21b89f504b1db205c97d8a184d2e24a1f3cde

diff --git a/compiler/typecheck/TcRnDriver.lhs b/compiler/typecheck/TcRnDriver.lhs
index 88695bc..bd76303 100644
--- a/compiler/typecheck/TcRnDriver.lhs
+++ b/compiler/typecheck/TcRnDriver.lhs
@@ -168,9 +168,9 @@ tcRnModule hsc_env hsc_src save_rn_syntax
 		-- thing (especially via 'module Foo' export item)
 		-- That is, only uses in the *body* of the module are complained about
 	traceRn (text "rn3") ;
-	failIfErrsM ;	-- finishDeprecations crashes sometimes 
+	failIfErrsM ;	-- finishWarnings crashes sometimes 
 			-- as a result of typechecker repairs (e.g. unboundNames)
-	tcg_env <- finishDeprecations (hsc_dflags hsc_env) mod_deprec tcg_env ;
+	tcg_env <- finishWarnings (hsc_dflags hsc_env) mod_deprec tcg_env ;
 
 		-- Process the export list
         traceRn (text "rn4a: before exports");
@@ -338,7 +338,7 @@ tcRnExtCore hsc_env (HsExtCore this_mod decls src_binds)
 				-- Stubs
 				mg_rdr_env   = emptyGlobalRdrEnv,
 				mg_fix_env   = emptyFixityEnv,
-				mg_deprecs   = NoDeprecs,
+				mg_warns     = NoWarnings,
 				mg_foreign   = NoStubs,
 				mg_hpc_info  = emptyHpcInfo False,
                                 mg_modBreaks = emptyModBreaks,