From 422dac0af2d70e5ec457b14722d200b6fba66cdd Mon Sep 17 00:00:00 2001 From: Herbert Valerio Riedel Date: Mon, 1 Jan 2018 00:44:09 +0100 Subject: [PATCH] Revert check for experimental features This reverts commit 770e8f913a450fc2c7f663ee67880b6d0ff76986. --- Distribution/Server/Packages/Unpack.hs | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) diff --git a/Distribution/Server/Packages/Unpack.hs b/Distribution/Server/Packages/Unpack.hs index 631de80e8..a7e150e02 100644 --- a/Distribution/Server/Packages/Unpack.hs +++ b/Distribution/Server/Packages/Unpack.hs @@ -25,9 +25,7 @@ import Distribution.Package ( PackageIdentifier, packageVersion, packageName, PackageName ) import Distribution.PackageDescription ( GenericPackageDescription(..), PackageDescription(..) - , allBuildInfo, allLibraries - , mixins, signatures, specVersion - ) + , specVersion ) import Distribution.PackageDescription.Configuration ( flattenPackageDescription ) import Distribution.PackageDescription.Check @@ -321,18 +319,6 @@ extraChecks genPkgDesc pkgId tarIndex = do ++ "field in their .cabal file. This is only used for " ++ "post-release revisions." - -- Check for experimental Backpack features - let usesBackpackInc = any (not . null . mixins) (allBuildInfo pkgDesc) - usesBackpackSig = any (not . null . signatures) (allLibraries pkgDesc) - - when (usesBackpackInc || usesBackpackSig) $ - throwError $ "Packages using experimental Backpack features " - ++ "(i.e. mixins or signatures) are not yet allowed on Hackage. " - ++ "Please use http://next.hackage.haskell.org:8080/ if you " - ++ "want to help testing Backpack in the meantime." - - return () - -- Monad for uploading packages: -- WriterT for warning messages -- Either for fatal errors