tcRnGroup :: HsGroup RdrName -> TcM ((TcGblEnv, TcLclEnv), FreeVars)
-- Returns the variables free in the decls, for unused-binding reporting
tcRnGroup decls
- = do { showLIE (text "start of tcRnGroup" ++ ppr decls) ;
+ = do { showLIE (text "LIE at start of tcRnGroup" <+> ppr decls) ;
-- Rename the declarations
(tcg_env, rn_decls, src_fvs) <- rnTopSrcDecls decls ;
-- Typecheck the declarations
tc_envs <- tcTopSrcDecls rn_decls ;
- showLIE (text "end of tcRnGroup" ++ ppr decls)
+ showLIE (text "LIE at end of tcRnGroup" <+> ppr decls) ;
return (tc_envs, src_fvs)
}}