import Pretty
import RnUtils ( GlobalNameMappers(..), GlobalNameMapper(..) )
import Maybes ( MaybeErr(..) )
import Pretty
import RnUtils ( GlobalNameMappers(..), GlobalNameMapper(..) )
import Maybes ( MaybeErr(..) )
- (((TypecheckedHsBinds, -- binds from class decls; does NOT
+ (((TypecheckedHsBinds, -- record selector definitions
+ TypecheckedHsBinds, -- binds from class decls; does NOT
-- include default-methods bindings
TypecheckedHsBinds, -- binds from instance decls; INCLUDES
-- class default-methods binds
-- include default-methods bindings
TypecheckedHsBinds, -- binds from instance decls; INCLUDES
-- class default-methods binds
- ([RenamedFixityDecl], [Id], UniqFM TyCon, UniqFM Class, Bag InstInfo),
+ ([RenamedFixityDecl], [Id], [TyCon], [Class], Bag InstInfo),
-- environments of info from this module only
FiniteMap TyCon [(Bool, [Maybe Type])],
-- environments of info from this module only
FiniteMap TyCon [(Bool, [Maybe Type])],
- (Bag TcError, -- pretty-print this to get errors
- Bag TcWarning) -- pretty-print this to get warnings
+ (Bag Error, -- pretty-print this to get errors
+ Bag Warning) -- pretty-print this to get warnings