diff options
author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2022-08-31 21:55:19 +0200 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-09-01 01:19:26 -0400 |
commit | 7d3a055d4df6842f8fbcfbc1ca96e2a45a47d351 (patch) | |
tree | 5536bc1dfd93ee52d0ce987d64911b1434e8257e /ghc | |
parent | 15111af6adb1c85af5b17088134c9e71bee025e3 (diff) | |
download | haskell-7d3a055d4df6842f8fbcfbc1ca96e2a45a47d351.tar.gz |
Minor cleanup
- Remove mkHeteroCoercionType, sdocImpredicativeTypes, isStateType (unused),
isCoVar_maybe (duplicated by getCoVar_maybe)
- Replace a few occurrences of voidPrimId with (# #).
void# is a deprecated synonym for the unboxed tuple.
- Use showSDoc in :show linker.
This makes it consistent with the other :show commands
Diffstat (limited to 'ghc')
-rw-r--r-- | ghc/GHCi/UI.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ghc/GHCi/UI.hs b/ghc/GHCi/UI.hs index 4eb9cd9324..c1ce849651 100644 --- a/ghc/GHCi/UI.hs +++ b/ghc/GHCi/UI.hs @@ -57,7 +57,7 @@ import GHC.Driver.Config.Diagnostic import qualified GHC import GHC ( LoadHowMuch(..), Target(..), TargetId(..), Resume, SingleStep, Ghc, - GetDocsFailure(..), putLogMsgM, pushLogHookM, + GetDocsFailure(..), pushLogHookM, getModuleGraph, handleSourceError, ms_mod ) import GHC.Driver.Main (hscParseModuleWithLocation, hscParseStmtWithLocation) import GHC.Hs.ImpExp @@ -3289,7 +3289,8 @@ showCmd str = do , action "bindings" $ showBindings , action "linker" $ do msg <- liftIO $ Loader.showLoaderState (hscInterp hsc_env) - putLogMsgM MCDump noSrcSpan msg + dflags <- getDynFlags + liftIO $ putStrLn $ showSDoc dflags msg , action "breaks" $ showBkptTable , action "context" $ showContext , action "packages" $ showUnits |