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:
5c453a1
)
Dump renamer output with -ddump-rn for command-line entry in ghci
author
simonpj@microsoft.com
<unknown>
Thu, 2 Aug 2007 16:51:10 +0000
(16:51 +0000)
committer
simonpj@microsoft.com
<unknown>
Thu, 2 Aug 2007 16:51:10 +0000
(16:51 +0000)
compiler/typecheck/TcRnDriver.lhs
patch
|
blob
|
history
diff --git
a/compiler/typecheck/TcRnDriver.lhs
b/compiler/typecheck/TcRnDriver.lhs
index
8468f87
..
17bd303
100644
(file)
--- a/
compiler/typecheck/TcRnDriver.lhs
+++ b/
compiler/typecheck/TcRnDriver.lhs
@@
-877,6
+877,7
@@
tcRnStmt hsc_env ictxt rdr_stmt
(([rn_stmt], _), fvs) <- rnStmts DoExpr [rdr_stmt] (return ((), emptyFVs)) ;
traceRn (text "tcRnStmt" <+> vcat [ppr rdr_stmt, ppr rn_stmt, ppr fvs]) ;
failIfErrsM ;
(([rn_stmt], _), fvs) <- rnStmts DoExpr [rdr_stmt] (return ((), emptyFVs)) ;
traceRn (text "tcRnStmt" <+> vcat [ppr rdr_stmt, ppr rn_stmt, ppr fvs]) ;
failIfErrsM ;
+ rnDump (ppr rn_stmt) ;
-- The real work is done here
(bound_ids, tc_expr) <- mkPlan rn_stmt ;
-- The real work is done here
(bound_ids, tc_expr) <- mkPlan rn_stmt ;