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-19 12:46:30 +0200 |
| commit | 3822b65f851e1454838a4f4f65a6cc5140d39be8 (patch) | |
| tree | c44376d2abaad0fe8c92fd1b77a7f9648a3a9ad4 | |
| parent | 1fc41d3274b5bf62f027aa6c7df57998db494938 (diff) | |
| download | haskell-3822b65f851e1454838a4f4f65a6cc5140d39be8.tar.gz | |
TcInteract: Add braces to matchClassInst trace output
This allows you to easily move to the result in a well-equipped editor.
| -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 |