From: simonpj <unknown>
Date: Fri, 18 Oct 2002 13:36:17 +0000 (+0000)
Subject: [project @ 2002-10-18 13:36:17 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1531
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=fbd11e24a1c299bb0c44eb19d1ec75a12d3d685e;p=ghc-hetmet.git

[project @ 2002-10-18 13:36:17 by simonpj]
Add a trace
---

diff --git a/ghc/compiler/rename/RnSource.lhs b/ghc/compiler/rename/RnSource.lhs
index 27281da..401030f 100644
--- a/ghc/compiler/rename/RnSource.lhs
+++ b/ghc/compiler/rename/RnSource.lhs
@@ -122,6 +122,7 @@ rnSrcDecls (HsGroup { hs_valds  = MonoBind binds sigs _,
 	   src_fvs = plusFVs [src_fvs1, src_fvs2, src_fvs3, src_fvs4, 
 			      src_fvs5, src_fvs6, src_fvs7] } ;
 
+	traceRn (text "rnSrcDecls" <+> ppr (nameSetToList src_fvs)) ;
 	tcg_env <- getGblEnv ;
 	return (tcg_env, rn_group, src_fvs)
     }}}