From fbd11e24a1c299bb0c44eb19d1ec75a12d3d685e Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 18 Oct 2002 13:36:17 +0000
Subject: [PATCH] [project @ 2002-10-18 13:36:17 by simonpj] Add a trace

---
 ghc/compiler/rename/RnSource.lhs |    1 +
 1 file changed, 1 insertion(+)

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)
     }}}
-- 
1.7.10.4