Commit e491aa14 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com

Less verbose debug print

parent ca9e79e1
......@@ -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)
} ;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment