diff --git a/cabal-install/src/Distribution/Client/ProjectPlanning/SetupPolicy.hs b/cabal-install/src/Distribution/Client/ProjectPlanning/SetupPolicy.hs
index 212a5d93f816bebdafec12b446f14b9d7a8cc3bd..a510ea2bff60be21aca6ce4ff86d54db5a83b06a 100644
--- a/cabal-install/src/Distribution/Client/ProjectPlanning/SetupPolicy.hs
+++ b/cabal-install/src/Distribution/Client/ProjectPlanning/SetupPolicy.hs
@@ -133,11 +133,10 @@ mkDefaultSetupDeps compiler platform pkg =
-- For other build types (like Simple) if we still need to compile an
-- external Setup.hs, it'll be one of the simple ones that only depends
- -- on Cabal and base.
+ -- on Cabal.
SetupNonCustomExternalLib ->
Just
[ Dependency cabalPkgname cabalConstraint mainLibSet
- , Dependency basePkgname anyVersion mainLibSet
]
where
cabalConstraint = orLaterVersion (csvToVersion (specVersion pkg))
@@ -217,9 +216,8 @@ packageSetupScriptSpecVersion _ pkg libDepGraph deps =
fromMaybe [] $
Graph.closure libDepGraph (CD.setupDeps deps)
-cabalPkgname, basePkgname :: PackageName
+cabalPkgname :: PackageName
cabalPkgname = mkPackageName "Cabal"
-basePkgname = mkPackageName "base"
legacyCustomSetupPkgs :: Compiler -> Platform -> [PackageName]
legacyCustomSetupPkgs compiler (Platform _ os) =
diff --git a/cabal-install/src/Distribution/Client/SetupWrapper.hs b/cabal-install/src/Distribution/Client/SetupWrapper.hs
index 32b492541d136046a74fdd11a6629b93defb0e54..4040c26bcea899487546d4d9cff09c816be117d1 100644
--- a/cabal-install/src/Distribution/Client/SetupWrapper.hs
+++ b/cabal-install/src/Distribution/Client/SetupWrapper.hs
@@ -181,6 +181,7 @@ import Distribution.Utils.NubList
import Distribution.Verbosity
import Data.List (foldl1')
+import qualified Data.Map.Lazy as Map
import Distribution.Simple.Setup (globalCommand)
import Distribution.Client.Compat.ExecutablePath (getExecutablePath)
import Distribution.Compat.Process (proc)
@@ -858,7 +859,7 @@ getExternalSetupMethod verbosity options pkg bt = do
rewriteFileLBS verbosity (i setupHs) (buildTypeScript cabalLibVersion)
buildTypeScript :: Version -> BS.ByteString
- buildTypeScript cabalLibVersion = case bt of
+ buildTypeScript cabalLibVersion = "{-# LANGUAGE NoImplicitPrelude #-}\n" <> case bt of
Simple -> "import Distribution.Simple; main = defaultMain\n"
Configure
| cabalLibVersion >= mkVersion [1, 3, 10] -> "import Distribution.Simple; main = defaultMainWithHooks autoconfUserHooks\n"
@@ -1111,6 +1112,13 @@ getExternalSetupMethod verbosity options pkg bt = do
| useVersionMacros options'
]
, ghcOptExtra = extraOpts
+ , ghcOptExtensions = toNubListR $
+ if bt == Custom || any (isBasePkgId . snd) selectedDeps
+ then []
+ else [ Simple.DisableExtension Simple.ImplicitPrelude ]
+ -- Pass -WNoImplicitPrelude to avoid depending on base
+ -- when compiling a Simple Setup.hs file.
+ , ghcOptExtensionMap = Map.fromList . Simple.compilerExtensions $ compiler
}
let ghcCmdLine = renderGhcOptions compiler platform ghcOptions
when (useVersionMacros options') $
@@ -1131,5 +1139,6 @@ getExternalSetupMethod verbosity options pkg bt = do
hPutStr logHandle output
return $ i setupProgFile
-isCabalPkgId :: PackageIdentifier -> Bool
+isCabalPkgId, isBasePkgId :: PackageIdentifier -> Bool
isCabalPkgId (PackageIdentifier pname _) = pname == mkPackageName "Cabal"
+isBasePkgId (PackageIdentifier pname _) = pname == mkPackageName "base"
diff --git a/cabal-testsuite/PackageTests/SetupHooks/SetupHooksNoBase/A.hs b/cabal-testsuite/PackageTests/SetupHooks/SetupHooksNoBase/A.hs
new file mode 100644
index 0000000000000000000000000000000000000000..90d08ce658bf4569df614c00fa641ce86878a515
--- /dev/null
+++ b/cabal-testsuite/PackageTests/SetupHooks/SetupHooksNoBase/A.hs
@@ -0,0 +1,2 @@
+{-# LANGUAGE NoImplicitPrelude #-}
+module A where {}
diff --git a/cabal-testsuite/PackageTests/SetupHooks/SetupHooksNoBase/SetupHooks.hs b/cabal-testsuite/PackageTests/SetupHooks/SetupHooksNoBase/SetupHooks.hs
new file mode 100644
index 0000000000000000000000000000000000000000..5d843bb9fbed691b93ab5e675b1ef949a1f51acc
--- /dev/null
+++ b/cabal-testsuite/PackageTests/SetupHooks/SetupHooksNoBase/SetupHooks.hs
@@ -0,0 +1,8 @@
+{-# LANGUAGE NoImplicitPrelude #-}
+
+module SetupHooks ( setupHooks ) where
+
+import Distribution.Simple.SetupHooks ( SetupHooks, noSetupHooks )
+
+setupHooks :: SetupHooks
+setupHooks = noSetupHooks
diff --git a/cabal-testsuite/PackageTests/SetupHooks/SetupHooksNoBase/cabal.project b/cabal-testsuite/PackageTests/SetupHooks/SetupHooksNoBase/cabal.project
new file mode 100644
index 0000000000000000000000000000000000000000..e6fdbadb4398bc0e333947b5fb8021778310d943
--- /dev/null
+++ b/cabal-testsuite/PackageTests/SetupHooks/SetupHooksNoBase/cabal.project
@@ -0,0 +1 @@
+packages: .
diff --git a/cabal-testsuite/PackageTests/SetupHooks/SetupHooksNoBase/cabal.test.hs b/cabal-testsuite/PackageTests/SetupHooks/SetupHooksNoBase/cabal.test.hs
new file mode 100644
index 0000000000000000000000000000000000000000..83a13355cd6437cb9a8836449f9199ae9953b9ce
--- /dev/null
+++ b/cabal-testsuite/PackageTests/SetupHooks/SetupHooksNoBase/cabal.test.hs
@@ -0,0 +1,14 @@
+import Test.Cabal.Prelude
+
+-- Test that we can compile the Setup.hs script for a package with
+-- build-type:Hooks without requiring a dependency on 'base'.
+--
+-- NB: we specifically don't include a 'Setup.hs' file in this package,
+-- as we rely on 'cabal-install' generating one that does not incur an extra
+-- dependency on base.
+main = cabalTest $ do
+ mpkgdb <- testPackageDbPath <$> getTestEnv
+ case mpkgdb of
+ Nothing -> skip "Cabal-hooks library unavailable."
+ Just _pkgdb -> recordMode DoNotRecord $ do
+ cabal "v2-build" [ "all" ]
diff --git a/cabal-testsuite/PackageTests/SetupHooks/SetupHooksNoBase/setup-hooks-no-base-test.cabal b/cabal-testsuite/PackageTests/SetupHooks/SetupHooksNoBase/setup-hooks-no-base-test.cabal
new file mode 100644
index 0000000000000000000000000000000000000000..a75c76d07ff19bb231042713d92d69e7a7da40ee
--- /dev/null
+++ b/cabal-testsuite/PackageTests/SetupHooks/SetupHooksNoBase/setup-hooks-no-base-test.cabal
@@ -0,0 +1,16 @@
+cabal-version: 3.14
+name: setup-hooks-no-base-test
+version: 0.1.0.0
+synopsis: Test that we can build Setup.hs without base
+license: BSD-3-Clause
+author: NA
+maintainer: NA
+category: Testing
+build-type: Hooks
+
+custom-setup
+ setup-depends: Cabal-hooks
+
+library
+ exposed-modules: A
+ default-language: Haskell2010