Commit 136d6345 authored by simonpj's avatar simonpj
Browse files

[project @ 2003-02-21 12:28:35 by simonpj]

Another typo; sigh
parent 35057005
......@@ -709,7 +709,7 @@ monad; it augments it and returns the new TcGblEnv.
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 ;
......@@ -718,7 +718,7 @@ tcRnGroup 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)
}}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment