TcInteract: Add braces to matchClassInst trace output
authorBen Gamari <ben@smart-cactus.org>
Mon, 18 Jul 2016 18:17:24 +0000 (20:17 +0200)
committerBen Gamari <ben@smart-cactus.org>
Wed, 20 Jul 2016 13:17:50 +0000 (15:17 +0200)
This allows you to easily move to the result in a well-equipped editor.

compiler/typecheck/TcInteract.hs

index f659b22..298bbb2 100644 (file)
@@ -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