JSON profiler reports

This introduces a JSON output format for cost-centre profiler reports.
It's not clear whether this is really something we want to introduce
given that we may also move to a more Haskell-driven output pipeline in
the future, but I nevertheless found this helpful, so I thought I would
put it up.

Test Plan: Compile a program with `-prof -fprof-auto`; run with `+RTS
-pj`

Reviewers: austin, erikd, simonmar

Reviewed By: simonmar

Subscribers: duncan, maoe, thomie, simonmar

Differential Revision: https://phabricator.haskell.org/D3132

1 files changed, 3 insertions, 3 deletions

diff --git a/libraries/base/GHC/RTS/Flags.hsc b/libraries/base/GHC/RTS/Flags.hsc
index 46534fed96..7bb10b60cb 100644
--- a/libraries/base/GHC/RTS/Flags.hsc
+++ b/libraries/base/GHC/RTS/Flags.hsc
@@ -166,7 +166,7 @@ data DoCostCentres
     | CostCentresSummary
     | CostCentresVerbose
     | CostCentresAll
-    | CostCentresXML
+    | CostCentresJSON
     deriving (Show)
 
 -- | @since 4.8.0.0
@@ -175,13 +175,13 @@ instance Enum DoCostCentres where
     fromEnum CostCentresSummary = #{const COST_CENTRES_SUMMARY}
     fromEnum CostCentresVerbose = #{const COST_CENTRES_VERBOSE}
     fromEnum CostCentresAll     = #{const COST_CENTRES_ALL}
-    fromEnum CostCentresXML     = #{const COST_CENTRES_XML}
+    fromEnum CostCentresJSON    = #{const COST_CENTRES_JSON}
 
     toEnum #{const COST_CENTRES_NONE}    = CostCentresNone
     toEnum #{const COST_CENTRES_SUMMARY} = CostCentresSummary
     toEnum #{const COST_CENTRES_VERBOSE} = CostCentresVerbose
     toEnum #{const COST_CENTRES_ALL}     = CostCentresAll
-    toEnum #{const COST_CENTRES_XML}     = CostCentresXML
+    toEnum #{const COST_CENTRES_JSON}    = CostCentresJSON
     toEnum e = errorWithoutStackTrace ("invalid enum for DoCostCentres: " ++ show e)
 
 -- | Parameters pertaining to the cost-center profiler.