Commit f6072cc4 authored by simonmar's avatar simonmar

[project @ 2005-01-20 16:15:02 by simonmar]

ghc-pkg list: show hidden packages in parentheses
parent 40a36f09
......@@ -387,8 +387,10 @@ listPackages db_confs = do
text (db_name ++ ":") $$ nest 4 packages
)
where packages = fsep (punctuate comma (map pp_pkg pkg_confs))
pp_pkg = text . showPackageId . package
pp_pkg p
| exposed p = doc
| otherwise = parens doc
where doc = text (showPackageId (package p))
-- -----------------------------------------------------------------------------
-- Describe
......
Markdown is supported
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