Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal On branch : master
http://hackage.haskell.org/trac/ghc/changeset/2e1365beb490f105eefe7fe496697ca48d9b2f8a >--------------------------------------------------------------- commit 2e1365beb490f105eefe7fe496697ca48d9b2f8a Author: bjorn <[email protected]> Date: Sun Oct 7 10:06:16 2007 +0000 Removed old bit-rotted commented-out getReverseDeps. >--------------------------------------------------------------- .../src/Network/Hackage/CabalInstall/Dependency.hs | 29 -------------------- 1 files changed, 0 insertions(+), 29 deletions(-) diff --git a/cabal-install/src/Network/Hackage/CabalInstall/Dependency.hs b/cabal-install/src/Network/Hackage/CabalInstall/Dependency.hs index c0071c7..c87ab29 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 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
