Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC
Commits:
-
d0966e64
by fendor at 2026-01-13T04:58:11-05:00
1 changed file:
Changes:
| ... | ... | @@ -23,7 +23,6 @@ |
| 23 | 23 | |
| 24 | 24 | module Main (main) where
|
| 25 | 25 | |
| 26 | -import Debug.Trace
|
|
| 27 | 26 | import qualified GHC.Unit.Database as GhcPkg
|
| 28 | 27 | import GHC.Unit.Database hiding (mkMungePathUrl)
|
| 29 | 28 | import GHC.HandleEncoding
|
| ... | ... | @@ -1634,7 +1633,7 @@ listPackages verbosity my_flags mPackageName mModuleName = do |
| 1634 | 1633 | simplePackageList :: [Flag] -> [InstalledPackageInfo] -> IO ()
|
| 1635 | 1634 | simplePackageList my_flags pkgs = do
|
| 1636 | 1635 | let showPkg :: InstalledPackageInfo -> String
|
| 1637 | - showPkg | FlagShowUnitIds `elem` my_flags = traceId . display . installedUnitId
|
|
| 1636 | + showPkg | FlagShowUnitIds `elem` my_flags = display . installedUnitId
|
|
| 1638 | 1637 | | FlagNamesOnly `elem` my_flags = display . mungedName . mungedId
|
| 1639 | 1638 | | otherwise = display . mungedId
|
| 1640 | 1639 | strs = map showPkg pkgs
|