diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2015-12-11 22:36:15 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-12-11 22:36:41 +0100 |
| commit | c205aebda7005744a5bbe44c11f37e98242145fa (patch) | |
| tree | 345ddcbdec24bf7ab3fcf672df310d09c3194674 /utils | |
| parent | 262954c2b2de95c06ae796522dbcda4d34f00531 (diff) | |
| download | haskell-c205aebda7005744a5bbe44c11f37e98242145fa.tar.gz | |
Removed colon append operation (fixes #10785)
Reviewers: jgertm, austin, thomie
Reviewed By: thomie
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D1164
GHC Trac Issues: #10785
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/ghc-pkg/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs index 2820f70591..b302810261 100644 --- a/utils/ghc-pkg/Main.hs +++ b/utils/ghc-pkg/Main.hs @@ -1241,7 +1241,7 @@ listPackages verbosity my_flags mPackageName mModuleName = do broken = map installedComponentId (brokenPackages pkg_map) show_normal PackageDB{ location = db_name, packages = pkg_confs } = - do hPutStrLn stdout (db_name ++ ":") + do hPutStrLn stdout db_name if null pkg_confs then hPutStrLn stdout " (no packages)" else hPutStrLn stdout $ unlines (map (" " ++) (map pp_pkg pkg_confs)) @@ -1273,8 +1273,8 @@ listPackages verbosity my_flags mPackageName mModuleName = do then termText (location db) <#> termText "\n (no packages)\n" else mconcat $ map (<#> termText "\n") $ - (termText (location db) : - map (termText " " <#>) (map pp_pkg pkg_confs)) + (termText (location db) + : map (termText " " <#>) (map pp_pkg pkg_confs)) where pp_pkg p | installedComponentId p `elem` broken = withF Red doc |