diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-09-30 21:01:28 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-09-30 21:01:28 +0000 |
| commit | cfb69428a10e245bc5b64417803b637693977b24 (patch) | |
| tree | a5ddb327862c6a27bf7149f2e63fe01f122820b7 /ghc | |
| parent | 5d0747c093ee5b45e08871503c6210662958657b (diff) | |
| download | haskell-cfb69428a10e245bc5b64417803b637693977b24.tar.gz | |
Don't show the loaded packages in ":show packages"; fixes #4300
It's never worked properly, and the information is in ":show linker".
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/InteractiveUI.hs | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index 2e4f80b041..c457d8a68d 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -1645,11 +1645,6 @@ showPackages = do io $ putStrLn $ showSDoc $ vcat $ text ("active package flags:"++if null pkg_flags then " none" else "") : map showFlag pkg_flags - pkg_ids <- fmap (preloadPackages . pkgState) getDynFlags - io $ putStrLn $ showSDoc $ vcat $ - text "packages currently loaded:" - : map (nest 2 . text . packageIdString) - (sortBy (compare `on` packageIdFS) pkg_ids) where showFlag (ExposePackage p) = text $ " -package " ++ p showFlag (HidePackage p) = text $ " -hide-package " ++ p showFlag (IgnorePackage p) = text $ " -ignore-package " ++ p |