summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthew Pickering <matthewtpickering@gmail.com>2019-01-20 20:58:01 -0500
committerMarge Bot <ben+marge-bot@smart-cactus.org>2019-01-23 17:32:48 -0500
commitcd57b22138a24f40ba190ea5ec9d231795eba17d (patch)
tree156a40af3e3b662850fef3d3c06187f16e0c7ad7
parentc9fe14cc0a1fb808763c9d1bcd5451443f684cdf (diff)
downloadhaskell-wip/D4533.tar.gz
Don't overwrite the set log_action when using --interactivewip/D4533
-ddump-json didn't work with --interactive as --interactive overwrote the log_action in terms of defaultLogAction. Reviewers: bgamari Subscribers: rwbarton, thomie, carter GHC Trac Issues: #14078 Differential Revision: https://phabricator.haskell.org/D4533
-rw-r--r--ghc/GHCi/UI.hs12
1 files changed, 8 insertions, 4 deletions
diff --git a/ghc/GHCi/UI.hs b/ghc/GHCi/UI.hs
index 10ca51124e..abb3d78fae 100644
--- a/ghc/GHCi/UI.hs
+++ b/ghc/GHCi/UI.hs
@@ -445,7 +445,10 @@ interactiveUI config srcs maybe_exprs = do
lastErrLocationsRef <- liftIO $ newIORef []
progDynFlags <- GHC.getProgramDynFlags
_ <- GHC.setProgramDynFlags $
- progDynFlags { log_action = ghciLogAction lastErrLocationsRef }
+ -- Ensure we don't override the user's log action lest we break
+ -- -ddump-json (#14078)
+ progDynFlags { log_action = ghciLogAction (log_action progDynFlags)
+ lastErrLocationsRef }
when (isNothing maybe_exprs) $ do
-- Only for GHCi (not runghc and ghc -e):
@@ -536,9 +539,10 @@ resetLastErrorLocations = do
st <- getGHCiState
liftIO $ writeIORef (lastErrorLocations st) []
-ghciLogAction :: IORef [(FastString, Int)] -> LogAction
-ghciLogAction lastErrLocations dflags flag severity srcSpan style msg = do
- defaultLogAction dflags flag severity srcSpan style msg
+ghciLogAction :: LogAction -> IORef [(FastString, Int)] -> LogAction
+ghciLogAction old_log_action lastErrLocations
+ dflags flag severity srcSpan style msg = do
+ old_log_action dflags flag severity srcSpan style msg
case severity of
SevError -> case srcSpan of
RealSrcSpan rsp -> modifyIORef lastErrLocations