diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-03-19 16:35:50 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-05-06 04:43:21 -0400 |
| commit | 94e7c563ab24fe452a16900a6777349970df1945 (patch) | |
| tree | a9c6ee505079fb9929d77e09efe7d86a6cb6fff8 /ghc | |
| parent | cab1871ab93feeacf2bf9a1c65b1c919ca9c5399 (diff) | |
| download | haskell-94e7c563ab24fe452a16900a6777349970df1945.tar.gz | |
Don't use DynFlags in showLinkerState (#17957)
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/GHCi/UI.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/ghc/GHCi/UI.hs b/ghc/GHCi/UI.hs index 3a297be7b1..6e4bc40afd 100644 --- a/ghc/GHCi/UI.hs +++ b/ghc/GHCi/UI.hs @@ -3047,7 +3047,10 @@ showCmd str = do , action "imports" $ showImports , action "modules" $ showModules , action "bindings" $ showBindings - , action "linker" $ getDynFlags >>= liftIO . (showLinkerState (hsc_dynLinker hsc_env)) + , action "linker" $ do + msg <- liftIO $ showLinkerState (hsc_dynLinker hsc_env) + dflags <- getDynFlags + liftIO $ putLogMsg dflags NoReason SevDump noSrcSpan msg , action "breaks" $ showBkptTable , action "context" $ showContext , action "packages" $ showPackages |