X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FHscTypes.lhs;h=f36b2054a9d75c6f7e33a515cde853e4c9ae39e3;hb=8e73f2c0cf07a4b235fcc1d1903ec69b41107dee;hp=b353caad24559b20e1a9c61493420ecc89b7e61a;hpb=f493bc7c7325a3809dda3637c12e5d9383ba8117;p=ghc-hetmet.git

diff --git a/compiler/main/HscTypes.lhs b/compiler/main/HscTypes.lhs
index b353caa..f36b205 100644
--- a/compiler/main/HscTypes.lhs
+++ b/compiler/main/HscTypes.lhs
@@ -521,9 +521,12 @@ data ModGuts
 	mg_fix_env   :: !FixityEnv,	 -- Fixity env, for things declared in
 					 --   this module 
 
+	mg_inst_env     :: InstEnv,	 -- Class instance enviroment fro
+					 -- *home-package* modules (including
+					 -- this one); c.f. tcg_inst_env
 	mg_fam_inst_env :: FamInstEnv,	 -- Type-family instance enviroment
 					 -- for *home-package* modules (including
-					 -- this one).  c.f. tcg_fam_inst_env
+					 -- this one); c.f. tcg_fam_inst_env
 
 	mg_types     :: !TypeEnv,
 	mg_insts     :: ![Instance],	 -- Instances