From c205aebda7005744a5bbe44c11f37e98242145fa Mon Sep 17 00:00:00 2001 From: Ben Gamari Date: Fri, 11 Dec 2015 22:36:15 +0100 Subject: 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 --- utils/ghc-pkg/Main.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'utils/ghc-pkg/Main.hs') 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 -- cgit v1.2.1