Remove dead code

Author: BardurArantsson

cabal-install/Distribution/Client/Dependency.hs

@@ -22,11 +22,9 @@ module Distribution.Client.Dependency (
     resolveWithoutDependencies,
 
     -- * Constructing resolver policies
-    DepResolverParams(..),
     PackageConstraint(..),
     PackagesPreferenceDefault(..),
     PackagePreference(..),
-    InstalledPreference(..),
 
     -- ** Standard policy
     basicInstallPolicy,
@@ -37,8 +35,6 @@ module Distribution.Client.Dependency (
     applySandboxInstallPolicy,
 
     -- ** Extra policy options
-    dontUpgradeNonUpgradeablePackages,
-    hideBrokenInstalledPackages,
     upgradeDependencies,
     reinstallTargets,
 
@@ -55,10 +51,6 @@ module Distribution.Client.Dependency (
     setMaxBackjumps,
     setEnableBackjumping,
     setGoalOrder,
-    addSourcePackages,
-    hideInstalledPackagesSpecificByUnitId,
-    hideInstalledPackagesSpecificBySourcePackageId,
-    hideInstalledPackagesAllVersions,
     removeUpperBounds,
     addDefaultSetupDependencies,
   ) where
@@ -75,11 +67,10 @@ import Distribution.Client.Types
 import Distribution.Client.Sandbox.Types
          ( SandboxPackageInfo(..) )
 import Distribution.Client.Targets
-import qualified Distribution.InstalledPackageInfo as Installed
 import Distribution.Package
          ( PackageName(..), PackageIdentifier(PackageIdentifier), PackageId
          , Package(..), packageName, packageVersion
-         , UnitId, Dependency(Dependency))
+         , Dependency(Dependency))
 import qualified Distribution.PackageDescription as PD
 import qualified Distribution.PackageDescription.Configuration as PD
 import Distribution.PackageDescription.Configuration
@@ -354,17 +345,6 @@ addSourcePackages pkgs params =
               (depResolverSourcePkgIndex params) pkgs
     }
 
-hideInstalledPackagesSpecificByUnitId :: [UnitId]
-                                                     -> DepResolverParams
-                                                     -> DepResolverParams
-hideInstalledPackagesSpecificByUnitId pkgids params =
-    --TODO: this should work using exclude constraints instead
-    params {
-      depResolverInstalledPkgIndex =
-        foldl' (flip InstalledPackageIndex.deleteUnitId)
-               (depResolverInstalledPkgIndex params) pkgids
-    }
-
 hideInstalledPackagesSpecificBySourcePackageId :: [PackageId]
                                                   -> DepResolverParams
                                                   -> DepResolverParams
@@ -387,17 +367,6 @@ hideInstalledPackagesAllVersions pkgnames params =
     }
 
 
-hideBrokenInstalledPackages :: DepResolverParams -> DepResolverParams
-hideBrokenInstalledPackages params =
-    hideInstalledPackagesSpecificByUnitId pkgids params
-  where
-    pkgids = map Installed.installedUnitId
-           . InstalledPackageIndex.reverseDependencyClosure
-                            (depResolverInstalledPkgIndex params)
-           . map (Installed.installedUnitId . fst)
-           . InstalledPackageIndex.brokenPackages
-           $ depResolverInstalledPkgIndex params
-
 -- | Remove upper bounds in dependencies using the policy specified by the
 -- 'AllowNewer' argument (all/some/none).
 --