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 /compiler/GHC/Runtime | |
| parent | cab1871ab93feeacf2bf9a1c65b1c919ca9c5399 (diff) | |
| download | haskell-94e7c563ab24fe452a16900a6777349970df1945.tar.gz | |
Don't use DynFlags in showLinkerState (#17957)
Diffstat (limited to 'compiler/GHC/Runtime')
| -rw-r--r-- | compiler/GHC/Runtime/Linker.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/compiler/GHC/Runtime/Linker.hs b/compiler/GHC/Runtime/Linker.hs index 9ae8270558..b936bde303 100644 --- a/compiler/GHC/Runtime/Linker.hs +++ b/compiler/GHC/Runtime/Linker.hs @@ -234,11 +234,10 @@ withExtendedLinkEnv dl new_env action -- | Display the persistent linker state. -showLinkerState :: DynLinker -> DynFlags -> IO () -showLinkerState dl dflags +showLinkerState :: DynLinker -> IO SDoc +showLinkerState dl = do pls <- readPLS dl - putLogMsg dflags NoReason SevDump noSrcSpan - $ withPprStyle defaultDumpStyle + return $ withPprStyle defaultDumpStyle (vcat [text "----- Linker state -----", text "Pkgs:" <+> ppr (pkgs_loaded pls), text "Objs:" <+> ppr (objs_loaded pls), |