X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FTidyPgm.lhs;h=4e01fd31975b2a71e58cf3d532236f88715ba526;hp=16df5660d4e089c86c685246758ea87a0bca3cb1;hb=9da4639011348fb6c318e3cba4b08622f811d9c4;hpb=275dde6de685153db621b11f2f404aa78d9183e2

diff --git a/compiler/main/TidyPgm.lhs b/compiler/main/TidyPgm.lhs
index 16df566..4e01fd3 100644
--- a/compiler/main/TidyPgm.lhs
+++ b/compiler/main/TidyPgm.lhs
@@ -46,7 +46,9 @@ import Module		( Module )
 import HscTypes		( HscEnv(..), NameCache( nsUniqs ), CgGuts(..),
 			  TypeEnv, typeEnvIds, typeEnvElts, typeEnvTyCons, 
 			  extendTypeEnvWithIds, lookupTypeEnv,
-			  ModGuts(..), TyThing(..), ModDetails(..), Dependencies(..)
+			  mkDetailsFamInstCache,
+			  ModGuts(..), TyThing(..), ModDetails(..),
+			  Dependencies(..)
 			)
 import Maybes		( orElse, mapCatMaybes )
 import ErrUtils		( showPass, dumpIfSet_core )
@@ -135,10 +137,11 @@ mkBootModDetails hsc_env (ModGuts { mg_module = mod,
 	      ; type_env' = extendTypeEnvWithIds type_env2
 				(map instanceDFunId ispecs')
 	      }
-	; return (ModDetails { md_types = type_env',
-			       md_insts = ispecs',
-			       md_rules = [],
-			       md_exports = exports })
+	; return (ModDetails { md_types     = type_env',
+			       md_insts     = ispecs',
+			       md_fam_insts = mkDetailsFamInstCache type_env',
+			       md_rules     = [],
+			       md_exports   = exports })
 	}
   where
 
@@ -290,6 +293,8 @@ tidyProgram hsc_env
 		   ModDetails { md_types = tidy_type_env,
 				md_rules = tidy_rules,
 				md_insts = tidy_ispecs,
+				md_fam_insts = mkDetailsFamInstCache 
+					         tidy_type_env,
 				md_exports = exports })
 	}