diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-05-13 11:46:58 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-06-13 02:13:03 -0400 |
| commit | f50c19b8a78da9252cb39f49c1c66db4a684cc3b (patch) | |
| tree | 9f87abeaf61469907de26e9ecf5deb206964ba19 | |
| parent | d2109b4f10ddbe09ac3397486922142f0cadaacc (diff) | |
| download | haskell-f50c19b8a78da9252cb39f49c1c66db4a684cc3b.tar.gz | |
Rename listUnitInfoMap into listUnitInfo
There is no Map involved
| -rw-r--r-- | compiler/GHC/Unit/State.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/compiler/GHC/Unit/State.hs b/compiler/GHC/Unit/State.hs index 25904f50d2..887079c63d 100644 --- a/compiler/GHC/Unit/State.hs +++ b/compiler/GHC/Unit/State.hs @@ -16,7 +16,7 @@ module GHC.Unit.State ( readPackageDatabase, getPackageConfRefs, resolvePackageDatabase, - listUnitInfoMap, + listUnitInfo, -- * Querying the package config lookupUnit, @@ -438,7 +438,7 @@ lookupPackageName pkgstate n = Map.lookup n (packageNameMap pkgstate) -- | Search for packages with a given package ID (e.g. \"foo-0.1\") searchPackageId :: PackageState -> PackageId -> [UnitInfo] searchPackageId pkgstate pid = filter ((pid ==) . unitPackageId) - (listUnitInfoMap pkgstate) + (listUnitInfo pkgstate) -- | Create a Map UnitId UnitInfo -- @@ -464,8 +464,8 @@ mkUnitInfoMap infos -- this function, although all packages in this map are "visible", this -- does not imply that the exposed-modules of the package are available -- (they may have been thinned or renamed). -listUnitInfoMap :: PackageState -> [UnitInfo] -listUnitInfoMap pkgstate = eltsUDFM pkg_map +listUnitInfo :: PackageState -> [UnitInfo] +listUnitInfo pkgstate = eltsUDFM pkg_map where UnitInfoMap pkg_map _ = unitInfoMap pkgstate @@ -2089,7 +2089,7 @@ pprPackages = pprPackagesWith pprUnitInfo pprPackagesWith :: (UnitInfo -> SDoc) -> PackageState -> SDoc pprPackagesWith pprIPI pkgstate = - vcat (intersperse (text "---") (map pprIPI (listUnitInfoMap pkgstate))) + vcat (intersperse (text "---") (map pprIPI (listUnitInfo pkgstate))) -- | Show simplified package info. -- |