[commit: ghc] wip/type-app: Improve ddump-tc-trace in TcErrors (a4df09a)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/type-app
Link       : http://ghc.haskell.org/trac/ghc/changeset/a4df09af7b78703fd38104b08efc5cf673eadd9d/ghc

>---------------------------------------------------------------

commit a4df09af7b78703fd38104b08efc5cf673eadd9d
Author: Richard Eisenberg <eir at cis.upenn.edu>
Date:   Tue Aug 4 21:36:45 2015 -0400

    Improve ddump-tc-trace in TcErrors


>---------------------------------------------------------------

a4df09af7b78703fd38104b08efc5cf673eadd9d
 compiler/typecheck/TcErrors.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/typecheck/TcErrors.hs b/compiler/typecheck/TcErrors.hs
index 79f65c1..c16a64c 100644
--- a/compiler/typecheck/TcErrors.hs
+++ b/compiler/typecheck/TcErrors.hs
@@ -1642,7 +1642,8 @@ relevantBindings want_filtering ctxt ct
            vcat [ ppr ct
                 , pprCtOrigin (ctLocOrigin loc)
                 , ppr ct_tvs
-                , ppr [id | TcIdBndr id _ <- tcl_bndrs lcl_env] ]
+                , pprWithCommas id [ ppr id <+> dcolon <+> ppr (idType id)
+                                   | TcIdBndr id _ <- tcl_bndrs lcl_env ] ]
 
        ; (tidy_env', docs, discards)
               <- go env1 ct_tvs (maxRelevantBinds dflags)