X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcRnTypes.lhs;fp=ghc%2Fcompiler%2Ftypecheck%2FTcRnTypes.lhs;h=c0cce28bcf66ee971a0fc78b2d48e1aa9c8a65f8;hb=0c53bd0e1b02dea0bde32cd7eb8ccb5ee2d3719e;hp=308a884915f3addcc3ccf7f42ed92ab2fb670068;hpb=93e2d5bd8cc76fde85420c39aff50557ac62de97;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcRnTypes.lhs b/ghc/compiler/typecheck/TcRnTypes.lhs
index 308a884..c0cce28 100644
--- a/ghc/compiler/typecheck/TcRnTypes.lhs
+++ b/ghc/compiler/typecheck/TcRnTypes.lhs
@@ -47,7 +47,7 @@ import HscTypes		( FixityEnv,
 			  HscEnv, TypeEnv, TyThing, 
 			  GenAvailInfo(..), AvailInfo, HscSource(..),
 			  availName, IsBootInterface, Deprecations )
-import Packages		( PackageId )
+import Packages		( PackageId, HomeModules )
 import Type		( Type, TvSubstEnv, pprParendType, pprTyThingCategory )
 import TcType		( TcTyVarSet, TcType, TcTauType, TcThetaType, SkolemInfo,
 			  TcPredType, TcKind, tcCmpPred, tcCmpType, tcCmpTypes, pprSkolInfo )
@@ -162,6 +162,10 @@ data TcGblEnv
 					--    from where, including things bound
 					--    in this module
 
+	tcg_home_mods :: HomeModules,
+				-- Calculated from ImportAvails, allows us to
+				-- call Packages.isHomeModule
+
 	tcg_dus :: DefUses,  	-- What is defined in this module and what is used.
 				-- The latter is used to generate 
 				--	(a) version tracking; no need to recompile if these