projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3505700
)
[project @ 2003-02-21 12:28:35 by simonpj]
author
simonpj
<unknown>
Fri, 21 Feb 2003 12:28:35 +0000
(12:28 +0000)
committer
simonpj
<unknown>
Fri, 21 Feb 2003 12:28:35 +0000
(12:28 +0000)
Another typo; sigh
ghc/compiler/typecheck/TcRnDriver.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/typecheck/TcRnDriver.lhs
b/ghc/compiler/typecheck/TcRnDriver.lhs
index
830dcc2
..
eeed95c
100644
(file)
--- a/
ghc/compiler/typecheck/TcRnDriver.lhs
+++ b/
ghc/compiler/typecheck/TcRnDriver.lhs
@@
-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
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 ;
-- 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 ;
-- 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)
}}
return (tc_envs, src_fvs)
}}