diff options
Diffstat (limited to 'ghc/Main.hs')
| -rw-r--r-- | ghc/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ghc/Main.hs b/ghc/Main.hs index 3cec5b6191..3552133891 100644 --- a/ghc/Main.hs +++ b/ghc/Main.hs @@ -865,9 +865,9 @@ dumpFastStringStats dflags = do x `pcntOf` y = int ((x * 100) `quot` y) Outputable.<> char '%' showPackages, dumpPackages, dumpPackagesSimple :: DynFlags -> IO () -showPackages dflags = putStrLn (showSDoc dflags (pprPackages dflags)) -dumpPackages dflags = putMsg dflags (pprPackages dflags) -dumpPackagesSimple dflags = putMsg dflags (pprPackagesSimple dflags) +showPackages dflags = putStrLn (showSDoc dflags (pprPackages (pkgState dflags))) +dumpPackages dflags = putMsg dflags (pprPackages (pkgState dflags)) +dumpPackagesSimple dflags = putMsg dflags (pprPackagesSimple (pkgState dflags)) -- ----------------------------------------------------------------------------- -- Frontend plugin support |