projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Toggle whether the RTS gets build with debugger support for ghci
[ghc-hetmet.git]
/
compiler
/
rename
/
RnSource.lhs
diff --git
a/compiler/rename/RnSource.lhs
b/compiler/rename/RnSource.lhs
index
993db64
..
1cb8058
100644
(file)
--- a/
compiler/rename/RnSource.lhs
+++ b/
compiler/rename/RnSource.lhs
@@
-101,8
+101,10
@@
rnSrcDecls (HsGroup { hs_valds = val_decls,
-- So we content ourselves with gathering uses only; that
-- means we'll only report a declaration as unused if it isn't
-- mentioned at all. Ah well.
-- So we content ourselves with gathering uses only; that
-- means we'll only report a declaration as unused if it isn't
-- mentioned at all. Ah well.
+ traceRn (text "Start rnTyClDecls") ;
(rn_tycl_decls, src_fvs1)
<- mapFvRn (wrapLocFstM rnTyClDecl) tycl_decls ;
(rn_tycl_decls, src_fvs1)
<- mapFvRn (wrapLocFstM rnTyClDecl) tycl_decls ;
+ traceRn (text "finish rnTyClDecls") ;
(rn_inst_decls, src_fvs2)
<- mapFvRn (wrapLocFstM rnSrcInstDecl) inst_decls ;
(rn_deriv_decls, src_fvs_deriv)
(rn_inst_decls, src_fvs2)
<- mapFvRn (wrapLocFstM rnSrcInstDecl) inst_decls ;
(rn_deriv_decls, src_fvs_deriv)
@@
-118,7
+120,9
@@
rnSrcDecls (HsGroup { hs_valds = val_decls,
-- the rnDocEntity stuff reports the errors again.
failIfErrsM ;
-- the rnDocEntity stuff reports the errors again.
failIfErrsM ;
+ traceRn (text "Start rnDocEntitys") ;
rn_docs <- mapM rnDocEntity docs ;
rn_docs <- mapM rnDocEntity docs ;
+ traceRn (text "finish rnDocEntitys") ;
let {
rn_group = HsGroup { hs_valds = rn_val_decls,
let {
rn_group = HsGroup { hs_valds = rn_val_decls,