diff options
Diffstat (limited to 'compiler/GHC/Unit/State.hs')
| -rw-r--r-- | compiler/GHC/Unit/State.hs | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/compiler/GHC/Unit/State.hs b/compiler/GHC/Unit/State.hs index be2abca983..051367d9b2 100644 --- a/compiler/GHC/Unit/State.hs +++ b/compiler/GHC/Unit/State.hs @@ -401,16 +401,6 @@ lookupUnit' True m@(UnitInfoMap pkg_map _) uid = case uid of VirtUnit i -> fmap (renamePackage m (instUnitInsts i)) (lookupUDFM pkg_map (instUnitInstanceOf i)) -{- --- | Find the indefinite package for a given 'IndefUnitId'. --- The way this works is just by fiat'ing that every indefinite package's --- unit key is precisely its component ID; and that they share uniques. -lookupIndefUnitId :: PackageState -> IndefUnitId -> Maybe UnitInfo -lookupIndefUnitId pkgstate (IndefUnitId cid_fs) = lookupUDFM pkg_map cid_fs - where - UnitInfoMap pkg_map = unitInfoMap pkgstate --} - -- | Find the package we know about with the given package name (e.g. @foo@), if any -- (NB: there might be a locally defined unit name which overrides this) lookupPackageName :: PackageState -> PackageName -> Maybe IndefUnitId @@ -1021,19 +1011,6 @@ findWiredInPackages dflags prec_map pkgs vis_map = do wired_in_pkgs = catMaybes mb_wired_in_pkgs pkgstate = pkgState dflags - -- this is old: we used to assume that if there were - -- multiple versions of wired-in packages installed that - -- they were mutually exclusive. Now we're assuming that - -- you have one "main" version of each wired-in package - -- (the latest version), and the others are backward-compat - -- wrappers that depend on this one. e.g. base-4.0 is the - -- latest, base-3.0 is a compat wrapper depending on base-4.0. - {- - deleteOtherWiredInPackages pkgs = filterOut bad pkgs - where bad p = any (p `matches`) wired_in_unitids - && package p `notElem` map fst wired_in_ids - -} - wiredInMap :: Map WiredUnitId WiredUnitId wiredInMap = Map.fromList [ (key, Definite (stringToUnitId wiredInUnitId)) |