Commit cfb69428 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Don't show the loaded packages in ":show packages"; fixes #4300

It's never worked properly, and the information is in ":show linker".
parent 5d0747c0
...@@ -1645,11 +1645,6 @@ showPackages = do ...@@ -1645,11 +1645,6 @@ showPackages = do
io $ putStrLn $ showSDoc $ vcat $ io $ putStrLn $ showSDoc $ vcat $
text ("active package flags:"++if null pkg_flags then " none" else "") text ("active package flags:"++if null pkg_flags then " none" else "")
: map showFlag pkg_flags : 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 where showFlag (ExposePackage p) = text $ " -package " ++ p
showFlag (HidePackage p) = text $ " -hide-package " ++ p showFlag (HidePackage p) = text $ " -hide-package " ++ p
showFlag (IgnorePackage p) = text $ " -ignore-package " ++ p showFlag (IgnorePackage p) = text $ " -ignore-package " ++ p
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment