From: simonmar <unknown>
Date: Wed, 27 Jun 2001 11:18:26 +0000 (+0000)
Subject: [project @ 2001-06-27 11:18:26 by simonmar]
X-Git-Tag: Approximately_9120_patches~1697
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6c9ea495a3ba994141dd9e00f4c443371a944016;p=ghc-hetmet.git

[project @ 2001-06-27 11:18:26 by simonmar]
add a commented out trace that was useful for debugging.
---

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 ->