X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcRnTypes.lhs;fp=ghc%2Fcompiler%2Ftypecheck%2FTcRnTypes.lhs;h=8edada30edcef11fdadc4dc89576bda1e5a3a1ba;hb=1159c0c06db593588cfae24e47a80e71c51c6129;hp=4bd633bd24f31eecb23f126214f098d2b4a97d94;hpb=eec59c80b2733b11be71c109e7fd908cc4e49fbd;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcRnTypes.lhs b/ghc/compiler/typecheck/TcRnTypes.lhs
index 4bd633b..8edada3 100644
--- a/ghc/compiler/typecheck/TcRnTypes.lhs
+++ b/ghc/compiler/typecheck/TcRnTypes.lhs
@@ -39,7 +39,7 @@ module TcRnTypes(
 #include "HsVersions.h"
 
 import HsSyn		( PendingSplice, HsOverLit, LRuleDecl, LForeignDecl,
-			  ArithSeqInfo, DictBinds, LHsBinds )
+			  ArithSeqInfo, DictBinds, LHsBinds, HsGroup )
 import HscTypes		( FixityEnv,
 			  HscEnv, TypeEnv, TyThing, 
 			  GenAvailInfo(..), AvailInfo, HscSource(..),
@@ -193,9 +193,14 @@ data TcGblEnv
 		-- tcg_inst_uses; the reference is implicit rather than explicit,
 		-- so we have to zap a mutable variable.
 
-		-- The next fields accumulate the payload of the module
-		-- The binds, rules and foreign-decl fiels are collected
-		-- initially in un-zonked form and are finally zonked in tcRnSrcDecls
+		-- The next fields accumulate the payload of the
+		-- module The binds, rules and foreign-decl fiels are
+		-- collected initially in un-zonked form and are
+		-- finally zonked in tcRnSrcDecls
+
+	tcg_rn_decls :: Maybe (HsGroup Name),	-- renamed decls, maybe
+		-- Nothing <=> Don't retain renamed decls
+
 	tcg_binds   :: LHsBinds Id,		-- Value bindings in this module
 	tcg_deprecs :: Deprecations,		-- ...Deprecations 
 	tcg_insts   :: [DFunId],		-- ...Instances