X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FdeSugar%2FDesugar.lhs;h=1f9ebe850bd8bc10d4aaaca1a9dcea949d93c0e5;hp=c2ee0a5a11ca3ff8fbcf288b580b970ff6167fec;hb=2a8cdc3aee5997374273e27365f92c161aca8453;hpb=94abbcb6d1d3d28d0b2de965e1357ac7b8f8c40a

diff --git a/compiler/deSugar/Desugar.lhs b/compiler/deSugar/Desugar.lhs
index c2ee0a5..1f9ebe8 100644
--- a/compiler/deSugar/Desugar.lhs
+++ b/compiler/deSugar/Desugar.lhs
@@ -71,7 +71,8 @@ deSugar hsc_env
 			    tcg_binds     = binds,
 			    tcg_fords     = fords,
 			    tcg_rules     = rules,
-		    	    tcg_insts     = insts })
+		    	    tcg_insts     = insts,
+		    	    tcg_fam_insts = fam_insts })
   = do	{ showPass dflags "Desugar"
 
 	-- Desugar the program
@@ -140,20 +141,21 @@ deSugar hsc_env
 		-- sort to get into canonical order
 
 	     mod_guts = ModGuts {	
-		mg_module   = mod,
-		mg_boot	    = isHsBoot hsc_src,
-		mg_exports  = exports,
-		mg_deps	    = deps,
-		mg_usages   = usages,
-		mg_dir_imps = [m | (m,_,_) <- moduleEnvElts dir_imp_mods],
-	        mg_rdr_env  = rdr_env,
-		mg_fix_env  = fix_env,
-		mg_deprecs  = deprecs,
-		mg_types    = type_env,
-		mg_insts    = insts,
-	        mg_rules    = ds_rules,
-		mg_binds    = ds_binds,
-		mg_foreign  = ds_fords }
+		mg_module    = mod,
+		mg_boot	     = isHsBoot hsc_src,
+		mg_exports   = exports,
+		mg_deps	     = deps,
+		mg_usages    = usages,
+		mg_dir_imps  = [m | (m,_,_) <- moduleEnvElts dir_imp_mods],
+	        mg_rdr_env   = rdr_env,
+		mg_fix_env   = fix_env,
+		mg_deprecs   = deprecs,
+		mg_types     = type_env,
+		mg_insts     = insts,
+		mg_fam_insts = fam_insts,
+	        mg_rules     = ds_rules,
+		mg_binds     = ds_binds,
+		mg_foreign   = ds_fords }
 	
         ; return (Just mod_guts)
 	}}}