X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcRnTypes.lhs;h=3e63827b4155a79f0d19ff33b06b8279bad2bba7;hp=20262c968e256ecb7d51799f00c39ccee5187d84;hb=bb7ffa1642e2110e26e1243c42a8a24adafa985d;hpb=0ffd1de9f595340f18cb94d57c99ded44826455d

diff --git a/compiler/typecheck/TcRnTypes.lhs b/compiler/typecheck/TcRnTypes.lhs
index 20262c9..3e63827 100644
--- a/compiler/typecheck/TcRnTypes.lhs
+++ b/compiler/typecheck/TcRnTypes.lhs
@@ -219,7 +219,7 @@ data TcGblEnv
 		-- Nothing <=> Don't retain renamed decls
 
 	tcg_binds     :: LHsBinds Id,	    -- Value bindings in this module
-	tcg_deprecs   :: Deprecations,	    -- ...Deprecations 
+	tcg_warns     :: Warnings,	    -- ...Warnings and deprecations
 	tcg_insts     :: [Instance],	    -- ...Instances
 	tcg_fam_insts :: [FamInst],	    -- ...Family instances
 	tcg_rules     :: [LRuleDecl Id],    -- ...Rules
@@ -234,9 +234,9 @@ type RecFieldEnv = NameEnv [Name]	-- Maps a constructor name *in this module*
 					-- to the fields for that constructor
 	-- This is used when dealing with ".." notation in record 
 	-- construction and pattern matching.
-	-- The FieldEnv deals *only* with constructors defined in
-	-- *thie* module.  For imported modules, we get the same info
-	-- from the TypeEnv
+	-- The FieldEnv deals *only* with constructors defined in *thie*
+	-- module.  For imported modules, we get the same info from the
+	-- TypeEnv
 \end{code}
 
 %************************************************************************