From: simonpj@microsoft.com <unknown>
Date: Tue, 14 Dec 2010 18:02:48 +0000 (+0000)
Subject: Less verbose debug print
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=e491aa14a33502ade10049611d9fb79bab8360fc

Less verbose debug print
---

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