[commit: Cabal] master: Put the check back in for hideBrokenPackages (98b5d35)

[Paolo Capriotti]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/98b5d3509bf40011e4064a0ae19ec0eee88ef4e0

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

commit 98b5d3509bf40011e4064a0ae19ec0eee88ef4e0
Author: Duncan Coutts <duncan at haskell.org>
Date:   Fri May 9 16:58:00 2008 +0000

    Put the check back in for hideBrokenPackages

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

 cabal-install/Hackage/Dependency.hs |    5 ++++-
 1 files changed, 4 insertions(+), 1 deletions(-)

diff --git a/cabal-install/Hackage/Dependency.hs b/cabal-install/Hackage/Dependency.hs
index 8018ee9..b2c16ee 100644
--- a/cabal-install/Hackage/Dependency.hs
+++ b/cabal-install/Hackage/Dependency.hs
@@ -57,10 +57,13 @@ resolveDependencies os arch comp Nothing available deps =
 
 hideBrokenPackages :: PackageFixedDeps p => PackageIndex p -> PackageIndex p
 hideBrokenPackages index =
-    foldr (PackageIndex.delete . packageId) index
+    check (null . PackageIndex.brokenPackages)
+  . foldr (PackageIndex.delete . packageId) index
   . PackageIndex.reverseDependencyClosure index
   . map (packageId . fst)
   $ PackageIndex.brokenPackages index
+  where
+    check p x = assert (p x) x
 
 type DependencyResolver a = OS
                          -> Arch