X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcRnTypes.lhs;fp=ghc%2Fcompiler%2Ftypecheck%2FTcRnTypes.lhs;h=063017e334d2101e4cb3bcf9281c007c112f97a3;hb=508a505e9853984bfdaa3ad855ae3fcbc6d31787;hp=5fcd47b0e32b4bf1f24b58b67a99e6294b32c19b;hpb=f9d8c8e0ab44b24d06b654d98543e8b39d4ebeca;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcRnTypes.lhs b/ghc/compiler/typecheck/TcRnTypes.lhs
index 5fcd47b..063017e 100644
--- a/ghc/compiler/typecheck/TcRnTypes.lhs
+++ b/ghc/compiler/typecheck/TcRnTypes.lhs
@@ -45,7 +45,7 @@ import HsSyn		( PendingSplice, HsOverLit, LRuleDecl, LForeignDecl,
 			  ArithSeqInfo, DictBinds, LHsBinds )
 import HscTypes		( FixityEnv,
 			  HscEnv, TypeEnv, TyThing, 
-			  GenAvailInfo(..), AvailInfo,
+			  GenAvailInfo(..), AvailInfo, HscSource(..),
 			  availName, IsBootInterface, Deprecations )
 import Packages		( PackageId )
 import Type		( Type, TvSubstEnv, pprParendType )
@@ -129,6 +129,9 @@ data Env gbl lcl	-- Changes as we move into an expression
 data TcGblEnv
   = TcGblEnv {
 	tcg_mod     :: Module,		-- Module being compiled
+	tcg_src     :: HscSource,	-- What kind of module 
+					-- (regular Haskell, hs-boot, ext-core)
+
 	tcg_rdr_env :: GlobalRdrEnv,	-- Top level envt; used during renaming
 	tcg_default :: Maybe [Type],	-- Types used for defaulting
 					-- Nothing => no 'default' decl