[commit: ghc] wip/lazy-instance-matching: TcInteract: Add braces to matchClassInst trace output (1757368)

[git at git.haskell.org]

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

On branch  : wip/lazy-instance-matching
Link       : http://ghc.haskell.org/trac/ghc/changeset/175736873679a2ae1c2e98b9f2a3f54197e2177c/ghc

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

commit 175736873679a2ae1c2e98b9f2a3f54197e2177c
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.


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

175736873679a2ae1c2e98b9f2a3f54197e2177c
 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