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. ...@@ -709,7 +709,7 @@ monad; it augments it and returns the new TcGblEnv.
tcRnGroup :: HsGroup RdrName -> TcM ((TcGblEnv, TcLclEnv), FreeVars) tcRnGroup :: HsGroup RdrName -> TcM ((TcGblEnv, TcLclEnv), FreeVars)
-- Returns the variables free in the decls, for unused-binding reporting -- Returns the variables free in the decls, for unused-binding reporting
tcRnGroup decls tcRnGroup decls
= do { showLIE (text "start of tcRnGroup" ++ ppr decls) ; = do { showLIE (text "LIE at start of tcRnGroup" <+> ppr decls) ;
-- Rename the declarations -- Rename the declarations
(tcg_env, rn_decls, src_fvs) <- rnTopSrcDecls decls ; (tcg_env, rn_decls, src_fvs) <- rnTopSrcDecls decls ;
...@@ -718,7 +718,7 @@ tcRnGroup decls ...@@ -718,7 +718,7 @@ tcRnGroup decls
-- Typecheck the declarations -- Typecheck the declarations
tc_envs <- tcTopSrcDecls rn_decls ; 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) 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