[commit: Cabal] master: Removed old bit-rotted commented-out getReverseDeps. (2e1365b)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/2e1365beb490f105eefe7fe496697ca48d9b2f8a

>---------------------------------------------------------------

commit 2e1365beb490f105eefe7fe496697ca48d9b2f8a
Author: bjorn <bjorn at bringert.net>
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