X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FHscMain.lhs;h=55d84b40593a447c2704f40fdeba2773470a2288;hb=4a8a81e4c1a6e7b5fe85282229731916d9be908a;hp=9d77c4d68c86df6698df64f3bc79b3182f261428;hpb=e69ddd9cc12f59c7ef7103e54fee2d1c55b9fc14;p=ghc-hetmet.git

diff --git a/compiler/main/HscMain.lhs b/compiler/main/HscMain.lhs
index 9d77c4d..55d84b4 100644
--- a/compiler/main/HscMain.lhs
+++ b/compiler/main/HscMain.lhs
@@ -672,11 +672,13 @@ hscFileCheck hsc_env mod_summary = do {
 	; case maybe_tc_result of {
       	     Nothing -> return (Just (HscChecked rdr_module Nothing Nothing));
       	     Just tc_result -> do
-		let md = ModDetails { 
-				md_types   = tcg_type_env tc_result,
-				md_exports = tcg_exports  tc_result,
-				md_insts   = tcg_insts    tc_result,
-				md_rules   = [panic "no rules"] }
+		let type_env = tcg_type_env tc_result
+		    md = ModDetails { 
+				md_types     = type_env,
+				md_exports   = tcg_exports  tc_result,
+				md_insts     = tcg_insts    tc_result,
+				md_fam_insts = mkDetailsFamInstCache type_env,
+				md_rules     = [panic "no rules"] }
 				   -- Rules are CoreRules, not the
 				   -- RuleDecls we get out of the typechecker
                     rnInfo = do decl <- tcg_rn_decls tc_result