From 2e1365beb490f105eefe7fe496697ca48d9b2f8a Mon Sep 17 00:00:00 2001 From: bjorn <bjorn@bringert.net> Date: Sun, 7 Oct 2007 10:06:16 +0000 Subject: [PATCH] Removed old bit-rotted commented-out getReverseDeps. --- .../Hackage/CabalInstall/Dependency.hs | 29 ------------------- 1 file changed, 29 deletions(-) diff --git a/cabal-install/src/Network/Hackage/CabalInstall/Dependency.hs b/cabal-install/src/Network/Hackage/CabalInstall/Dependency.hs index c0071c7e1f..c87ab29354 100644 --- a/cabal-install/src/Network/Hackage/CabalInstall/Dependency.hs +++ b/cabal-install/src/Network/Hackage/CabalInstall/Dependency.hs @@ -72,35 +72,6 @@ getBuildDeps ps Just (_,_,subDeps) -> flattenDepList ps subDeps Nothing -> [] -{- -getReverseDeps :: [PackageIdentifier] -- All installed packages. - -> [(PackageIdentifier,[Dependency],String)] -- Known packages. - -> [(PackageIdentifier,[Dependency],String)] -- Resolved and installed packages. - -> [(PackageIdentifier,[String],String)] -- Packages to be installed. - -> [(PackageIdentifier,[String],String)] -getReverseDeps ps knownPkgs ipkgs toBeInstalled - = nub $ concatMap resolve $ filter depends ipkgs - where depends (_pkg,deps,_location) - = or (map (\dep -> or (map (\(p,_,_) -> fulfillDependency dep p) toBeInstalled)) deps) - resolve (pkg,deps,location) - = let resolveDep dep - = case find (\(p,_,_) -> fulfillDependency dep p) knownPkgs of - Just (pkg,_,location) -> Just (pkg,[],location) - Nothing - | pkg `elem` ps -> Nothing - | otherwise -> error "Urk!" - in mapMaybe resolveDep deps ++ [(pkg,[],location)] - --- |Find the dependencies and location for installed packages. --- Packages not located on a Hackage server will be filtered out. -filterInstalledPkgs :: [PackageIdentifier] -> [(PackageIdentifier,[Dependency],String)] - -> [(PackageIdentifier,[Dependency],String)] -filterInstalledPkgs ipkgs knownPkgs - = filter worker knownPkgs - where worker (pkg,_deps,_location) - = pkg `elem` ipkgs --} - depToUnresolvedDep :: Dependency -> UnresolvedDependency depToUnresolvedDep dep = UnresolvedDependency -- GitLab