From 6c9ea495a3ba994141dd9e00f4c443371a944016 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 27 Jun 2001 11:18:26 +0000
Subject: [PATCH] [project @ 2001-06-27 11:18:26 by simonmar] add a commented
 out trace that was useful for debugging.

---
 ghc/compiler/typecheck/TcInstDcls.lhs |    5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/ghc/compiler/typecheck/TcInstDcls.lhs b/ghc/compiler/typecheck/TcInstDcls.lhs
index b30e4fc..e60bfbc 100644
--- a/ghc/compiler/typecheck/TcInstDcls.lhs
+++ b/ghc/compiler/typecheck/TcInstDcls.lhs
@@ -198,7 +198,10 @@ tcInstDecls1 inst_env0 prs hst unf_env get_fixity this_mod decls
 	imported_dfuns	 = map (tcAddImportedIdInfo unf_env . iDFunId) 
 			       imported_inst_info
 	hst_dfuns	 = foldModuleEnv ((++) . md_insts) [] hst
-    in
+    in 
+
+--    pprTrace "tcInstDecls" (vcat [ppr imported_dfuns, ppr hst_dfuns]) $
+
     addInstDFuns inst_env0 imported_dfuns	`thenNF_Tc` \ inst_env1 ->
     addInstDFuns inst_env1 hst_dfuns		`thenNF_Tc` \ inst_env2 ->
     addInstInfos inst_env2 local_inst_info	`thenNF_Tc` \ inst_env3 ->
-- 
1.7.10.4