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 655b03e7bd..bd2028b70b 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 (pkgState dflags))) -dumpPackages dflags = putMsg dflags (pprPackages (pkgState dflags)) -dumpPackagesSimple dflags = putMsg dflags (pprPackagesSimple (pkgState dflags)) +showPackages dflags = putStrLn (showSDoc dflags (pprPackages (unitState dflags))) +dumpPackages dflags = putMsg dflags (pprPackages (unitState dflags)) +dumpPackagesSimple dflags = putMsg dflags (pprPackagesSimple (unitState dflags)) -- ----------------------------------------------------------------------------- -- Frontend plugin support |