diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2016-07-18 20:17:24 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-07-20 15:17:50 +0200 |
| commit | 908f8e234fdbf951e763e0c47b018c6f74ae952c (patch) | |
| tree | 7794ca35bdfc97492c6472a34e65e0fa89dcc3b7 /compiler | |
| parent | e46b76816c67ca8651aaf2c119632ff1bdb3766f (diff) | |
| download | haskell-908f8e234fdbf951e763e0c47b018c6f74ae952c.tar.gz | |
TcInteract: Add braces to matchClassInst trace output
This allows you to easily move to the result in a well-equipped editor.
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/typecheck/TcInteract.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/typecheck/TcInteract.hs b/compiler/typecheck/TcInteract.hs index f659b22608..298bbb2dc9 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 |