projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Refactoring of hsXxxBinders
[ghc-hetmet.git]
/
compiler
/
typecheck
/
TcRnTypes.lhs
diff --git
a/compiler/typecheck/TcRnTypes.lhs
b/compiler/typecheck/TcRnTypes.lhs
index
c011d20
..
2f54e42
100644
(file)
--- a/
compiler/typecheck/TcRnTypes.lhs
+++ b/
compiler/typecheck/TcRnTypes.lhs
@@
-56,7
+56,7
@@
import NameSet
import Var
import VarEnv
import Module
import Var
import VarEnv
import Module
-import LazyUniqFM
+import UniqFM
import SrcLoc
import VarSet
import ErrUtils
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_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),
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.
tcg_rn_decls :: Maybe (HsGroup Name),
-- ^ Renamed decls, maybe. @Nothing@ <=> Don't retain renamed
-- decls.
@@
-247,8
+251,12
@@
data TcGblEnv
tcg_fords :: [LForeignDecl Id], -- ...Foreign import & exports
tcg_doc_hdr :: Maybe LHsDocString, -- ^ Maybe Haddock header docs
tcg_fords :: [LForeignDecl Id], -- ...Foreign import & exports
tcg_doc_hdr :: Maybe LHsDocString, -- ^ Maybe Haddock header docs
- tcg_hpc :: AnyHpcUsage -- ^ @True@ if any part of the prog uses hpc
- -- instrumentation.
+ tcg_hpc :: AnyHpcUsage, -- ^ @True@ if any part of the
+ -- prog uses hpc instrumentation.
+
+ tcg_main :: Maybe Name -- ^ The Name of the main
+ -- function, if this module is
+ -- the main module.
}
data RecFieldEnv
}
data RecFieldEnv