diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2018-05-13 11:39:34 -0400 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2018-05-13 18:30:43 -0400 |
commit | 6ab7cf995dafcc9196e87bbde76b4f6937507592 (patch) | |
tree | 499b36d722e3caa22b07fcc73f2138fd37f8b033 /compiler/main/DriverPipeline.hs | |
parent | 00049e2dce93b1e468c3fde3287371eb988aafdc (diff) | |
download | haskell-6ab7cf995dafcc9196e87bbde76b4f6937507592.tar.gz |
Simplify -ddump-json implementation
This patch takes the much simpler route of whenever the compiler tries
to output something. We just dump a JSON document there and then.
I think this should be sufficient to work with and anything more refined
quickly got complicated as it was necessary to demarcate message scopes
and so on.
Reviewers: bgamari, dfeuer
Reviewed By: bgamari
Subscribers: Phyx, dfeuer, rwbarton, thomie, carter
GHC Trac Issues: #14078
Differential Revision: https://phabricator.haskell.org/D4532
Diffstat (limited to 'compiler/main/DriverPipeline.hs')
-rw-r--r-- | compiler/main/DriverPipeline.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index 1d78bee14a..0ed65d39fd 100644 --- a/compiler/main/DriverPipeline.hs +++ b/compiler/main/DriverPipeline.hs @@ -266,8 +266,7 @@ compileOne' m_tc_result mHscMessage prevailing_dflags = hsc_dflags hsc_env0 dflags = dflags1 { includePaths = addQuoteInclude old_paths [current_dir] - , log_action = log_action prevailing_dflags - , log_finaliser = log_finaliser prevailing_dflags } + , log_action = log_action prevailing_dflags } -- use the prevailing log_action / log_finaliser, -- not the one cached in the summary. This is so -- that we can change the log_action without having |