import TcEnv ( tcExtendIdEnv )
#endif
-import HsSyn ( emptyLHsBinds )
+import HsSyn ( emptyLHsBinds, HaddockModInfo(..) )
import HscTypes ( HscEnv(..), ModGuts(..), ModIface(..),
TypeEnv, emptyTypeEnv, HscSource(..), isHsBoot,
ExternalPackageState(..), HomePackageTable,
tcg_fam_inst_env = emptyFamInstEnv,
tcg_inst_uses = dfuns_var,
tcg_th_used = th_var,
- tcg_exports = emptyNameSet,
+ tcg_exports = [],
tcg_imports = init_imports,
tcg_dus = emptyDUs,
tcg_rn_imports = Nothing,
tcg_binds = emptyLHsBinds,
tcg_deprecs = NoDeprecs,
tcg_insts = [],
+ tcg_fam_insts= [],
tcg_rules = [],
tcg_fords = [],
tcg_dfun_n = dfun_n_var,
- tcg_keep = keep_var
+ tcg_keep = keep_var,
+ tcg_doc = Nothing,
+ tcg_hmi = HaddockModInfo Nothing Nothing Nothing Nothing
} ;
lcl_env = TcLclEnv {
tcl_errs = errs_var,
return (msgs, final_res)
}
where
- init_imports = emptyImportAvails {imp_env =
- unitUFM (moduleName mod) emptyNameSet}
+ init_imports = emptyImportAvails {imp_env = unitUFM (moduleName mod) []}
-- Initialise tcg_imports with an empty set of bindings for
-- this module, so that if we see 'module M' in the export
-- list, and there are no bindings in M, we don't bleat