Add Outputable Report in TcErrors
authorSimon Peyton Jones <simonpj@microsoft.com>
Sun, 25 Sep 2016 14:48:29 +0000 (15:48 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Fri, 30 Sep 2016 11:53:24 +0000 (12:53 +0100)
...just for debug output

compiler/typecheck/TcErrors.hs

index b27e073..d49ca64 100644 (file)
@@ -216,6 +216,11 @@ data Report
            , report_relevant_bindings :: [SDoc]
            }
 
+instance Outputable Report where   -- Debugging only
+  ppr (Report { report_important = imp, report_relevant_bindings = rel })
+    = vcat [ text "important:" <+> vcat imp
+           , text "relevant:"  <+> vcat rel ]
+
 {- Note [Error report]
 The idea is that error msgs are divided into three parts: the main msg, the
 context block (\"In the second argument of ...\"), and the relevant bindings