X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FdeSugar%2FDesugar.lhs;h=80b0dcbd8e860a703952848482dc5bc7c0232299;hb=cec9b62f2ccdd358aa1d99c4143794b541b87f7e;hp=6842e9d6d624ac49846b191e7b96fda240d13bf7;hpb=fcf5ff34649982a99bc1e4a4940453a181a8d899;p=ghc-hetmet.git

diff --git a/compiler/deSugar/Desugar.lhs b/compiler/deSugar/Desugar.lhs
index 6842e9d..80b0dcb 100644
--- a/compiler/deSugar/Desugar.lhs
+++ b/compiler/deSugar/Desugar.lhs
@@ -40,7 +40,6 @@ import FastString
 import Coverage
 
 import Data.IORef
-import Data.Char
 \end{code}
 
 %************************************************************************
@@ -65,7 +64,7 @@ deSugar hsc_env
 		    	    tcg_fix_env      = fix_env,
 		    	    tcg_inst_env     = inst_env,
 		    	    tcg_fam_inst_env = fam_inst_env,
-	    	    	    tcg_deprecs      = deprecs,
+	    	    	    tcg_warns      = warns,
 			    tcg_binds        = binds,
 			    tcg_fords        = fords,
 			    tcg_rules        = rules,
@@ -130,7 +129,7 @@ deSugar hsc_env
 		mg_dir_imps  	= imp_mods imports,
 	        mg_rdr_env   	= rdr_env,
 		mg_fix_env   	= fix_env,
-		mg_deprecs   	= deprecs,
+		mg_warns   	= warns,
 		mg_types     	= type_env,
 		mg_insts     	= insts,
 		mg_fam_insts 	= fam_insts,