[commit: Cabal] master: Disable a particularly slow invariant check (0a734a4)

[Paolo Capriotti]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/0a734a4c5d746e699ed4b1a3c985fd8f4fb88bfd

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

commit 0a734a4c5d746e699ed4b1a3c985fd8f4fb88bfd
Author: Duncan Coutts <duncan at haskell.org>
Date:   Thu Jan 17 20:05:39 2008 +0000

    Disable a particularly slow invariant check

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

 cabal-install/Hackage/Index.hs |   11 +++++------
 1 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/cabal-install/Hackage/Index.hs b/cabal-install/Hackage/Index.hs
index e52452f..013b2bc 100644
--- a/cabal-install/Hackage/Index.hs
+++ b/cabal-install/Hackage/Index.hs
@@ -45,10 +45,9 @@ import Data.ByteString.Lazy (ByteString)
 import System.FilePath ((</>), takeExtension, splitDirectories, normalise)
 import System.IO.Error (isDoesNotExistError)
 
-import Distribution.PackageDescription
-         (PackageDescription(package),
-          GenericPackageDescription(packageDescription),
-          parsePackageDescription, ParseResult(..))
+import Distribution.PackageDescription (parsePackageDescription, ParseResult(..))
+--         PackageDescription(package),
+--          GenericPackageDescription(packageDescription))
 import Distribution.Package (PackageIdentifier(..))
 import Distribution.Version (readVersion, Dependency(Dependency), withinRange)
 import Distribution.Verbosity (Verbosity)
@@ -97,8 +96,8 @@ invariant (RepoIndex m) = all (uncurry goodBucket) (Map.toList m)
              lowercase name == name
           && not (null pkgs)
           && all ((lowercase name==) . lowercase . pkgName . pkgInfoId) pkgs
-          && all (\pkg -> pkgInfoId pkg
-                       == (package . packageDescription . pkgDesc) pkg) pkgs
+--          && all (\pkg -> pkgInfoId pkg
+--                       == (package . packageDescription . pkgDesc) pkg) pkgs
           && distinct (map pkgInfoId pkgs)
         
         distinct = all ((==1). length) . group . sort