diff options
Diffstat (limited to 'ghc/InteractiveUI.hs')
| -rw-r--r-- | ghc/InteractiveUI.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index 386d4df17d..3d871d9d1d 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -2331,9 +2331,9 @@ showPackages :: GHCi () showPackages = do dflags <- getDynFlags let pkg_flags = packageFlags dflags - liftIO $ putStrLn $ showSDoc dflags $ vcat $ - text ("active package flags:"++if null pkg_flags then " none" else "") - : map pprFlag pkg_flags + liftIO $ putStrLn $ showSDoc dflags $ + text ("active package flags:"++if null pkg_flags then " none" else "") $$ + nest 2 (vcat (map pprFlag pkg_flags)) showPaths :: GHCi () showPaths = do |