[commit: ghc] master: TcInteract: Add braces to matchClassInst trace output (908f8e2)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/908f8e234fdbf951e763e0c47b018c6f74ae952c/ghc

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

commit 908f8e234fdbf951e763e0c47b018c6f74ae952c
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Mon Jul 18 20:17:24 2016 +0200

    TcInteract: Add braces to matchClassInst trace output
    
    This allows you to easily move to the result in a well-equipped editor.


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

908f8e234fdbf951e763e0c47b018c6f74ae952c
 compiler/typecheck/TcInteract.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/typecheck/TcInteract.hs b/compiler/typecheck/TcInteract.hs
index f659b22..298bbb2 100644
--- a/compiler/typecheck/TcInteract.hs
+++ b/compiler/typecheck/TcInteract.hs
@@ -1791,9 +1791,9 @@ matchClassInst dflags inerts clas tys loc
      pred = mkClassPred clas tys
 
 matchClassInst dflags _ clas tys loc
- = do { traceTcS "matchClassInst" $ vcat [ text "pred =" <+> ppr (mkClassPred clas tys) ]
+ = do { traceTcS "matchClassInst" $ text "pred =" <+> ppr (mkClassPred clas tys) <+> char '{'
       ; res <- match_class_inst dflags clas tys loc
-      ; traceTcS "matchClassInst result" $ ppr res
+      ; traceTcS "} matchClassInst result" $ ppr res
       ; return res }
 
 match_class_inst :: DynFlags -> Class -> [Type] -> CtLoc -> TcS LookupInstResult