From e491aa14a33502ade10049611d9fb79bab8360fc Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Tue, 14 Dec 2010 18:02:48 +0000
Subject: [PATCH] Less verbose debug print

---
 compiler/typecheck/TcSMonad.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/typecheck/TcSMonad.lhs b/compiler/typecheck/TcSMonad.lhs
index 1e99876..36c46b3 100644
--- a/compiler/typecheck/TcSMonad.lhs
+++ b/compiler/typecheck/TcSMonad.lhs
@@ -947,7 +947,7 @@ matchClass clas tys
 			; traceTcS "matchClass success"
 				   (vcat [text "dict" <+> ppr pred, 
 				          text "witness" <+> ppr dfun_id
-                                           <+> ppr (idType dfun_id), ppr instEnvs ])
+                                           <+> ppr (idType dfun_id) ])
 				  -- Record that this dfun is needed
                         ; return $ MatchInstSingle (dfun_id, inst_tys)
                         } ;
-- 
1.7.10.4