X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FdeSugar%2FDesugar.lhs;h=e2b22ee3a6e1cd70168f70957fa7101a9f1d4d4b;hb=986622b97885ed080680754d23e43fcff9b9e57f;hp=cb861aed961a9b8a234bc76e17f1f0b72e6340ec;hpb=6ebfe518116d1c97a9d46013271f359decea2d15;p=ghc-hetmet.git

diff --git a/compiler/deSugar/Desugar.lhs b/compiler/deSugar/Desugar.lhs
index cb861ae..e2b22ee 100644
--- a/compiler/deSugar/Desugar.lhs
+++ b/compiler/deSugar/Desugar.lhs
@@ -71,6 +71,7 @@ deSugar hsc_env
 			    tcg_keep	     = keep_var,
 		    	    tcg_rdr_env      = rdr_env,
 		    	    tcg_fix_env      = fix_env,
+		    	    tcg_inst_env     = inst_env,
 		    	    tcg_fam_inst_env = fam_inst_env,
 	    	    	    tcg_deprecs      = deprecs,
 			    tcg_binds        = binds,
@@ -168,6 +169,7 @@ deSugar hsc_env
 		mg_types     	= type_env,
 		mg_insts     	= insts,
 		mg_fam_insts 	= fam_insts,
+		mg_inst_env     = inst_env,
 		mg_fam_inst_env = fam_inst_env,
 	        mg_rules     	= ds_rules,
 		mg_binds     	= ds_binds,