X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcRnTypes.lhs;h=2f54e42f5cda917262c00f2e5865d86425f03f63;hb=1a9245caefb80a3c4c5965aaacdf9a607e792e1c;hp=a91e95e377ae504e9ef2aa82ada65bd88b209670;hpb=46c673a70fe14fe05d7160b456925b8591b5f779;p=ghc-hetmet.git

diff --git a/compiler/typecheck/TcRnTypes.lhs b/compiler/typecheck/TcRnTypes.lhs
index a91e95e..2f54e42 100644
--- a/compiler/typecheck/TcRnTypes.lhs
+++ b/compiler/typecheck/TcRnTypes.lhs
@@ -56,7 +56,7 @@ import NameSet
 import Var
 import VarEnv
 import Module
-import LazyUniqFM
+import UniqFM
 import SrcLoc
 import VarSet
 import ErrUtils
@@ -233,7 +233,11 @@ data TcGblEnv
         tcg_rn_imports :: [LImportDecl Name],
 		-- Keep the renamed imports regardless.  They are not 
 		-- voluminous and are needed if you want to report unused imports
+
         tcg_used_rdrnames :: TcRef (Set RdrName),
+		-- The set of used *imported* (not locally-defined) RdrNames
+		-- Used only to report unused import declarations
+
 	tcg_rn_decls :: Maybe (HsGroup Name),
           -- ^ Renamed decls, maybe.  @Nothing@ <=> Don't retain renamed
           -- decls.