Commit 908f8e23 authored by Ben Gamari's avatar Ben Gamari 🐢
Browse files

TcInteract: Add braces to matchClassInst trace output

This allows you to easily move to the result in a well-equipped editor.
parent e46b7681
......@@ -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
......
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