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 <[email protected]> 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 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
