Include the compiler ABI hash in the package hash

This complements the previous commit in order to fix haskell#9326
alt-romes · Jan 17, 2024 · 129ec22 · 129ec22
1 parent a0eec76
commit 129ec22
Show file tree

Hide file tree

Showing 6 changed files with 19 additions and 9 deletions.
diff --git a/Cabal/src/Distribution/Simple/GHC.hs b/Cabal/src/Distribution/Simple/GHC.hs
@@ -82,7 +82,7 @@ module Distribution.Simple.GHC
 import Distribution.Compat.Prelude
 import Prelude ()
 
-import Control.Monad (forM_, msum)
+import Control.Monad (forM_)
 import Data.List (stripPrefix)
 import qualified Data.Map as Map
 import Distribution.CabalSpecVersion

diff --git a/cabal-install/src/Distribution/Client/PackageHash.hs b/cabal-install/src/Distribution/Client/PackageHash.hs
@@ -10,6 +10,8 @@
 -- * the package tarball
 -- * the ids of all the direct dependencies
 -- * other local configuration (flags, profiling, etc)
+--
+-- See 'PackageHashInputs' for a detailed list of what determines the hash.
 module Distribution.Client.PackageHash
  ( -- * Calculating package hashes
  PackageHashInputs (..)
@@ -38,7 +40,8 @@ import Distribution.Package
  , mkComponentId
  )
 import Distribution.Simple.Compiler
- ( CompilerId
+ ( AbiTag (..)
+ , CompilerId
  , DebugInfoLevel (..)
  , OptimisationLevel (..)
  , PackageDB
@@ -191,6 +194,7 @@ type PackageSourceHash = HashValue
 -- package hash.
 data PackageHashConfigInputs = PackageHashConfigInputs
  { pkgHashCompilerId :: CompilerId
+ , pkgHashCompilerABI :: AbiTag
  , pkgHashPlatform :: Platform
  , pkgHashFlagAssignment :: FlagAssignment -- complete not partial
  , pkgHashConfigureScriptArgs :: [String] -- just ./configure for build-type Configure
@@ -301,6 +305,7 @@ renderPackageHashInputs
  pkgHashDirectDeps
  , -- and then all the config
  entry "compilerid" prettyShow pkgHashCompilerId
+ , entry "compilerabi" prettyShow pkgHashCompilerABI
  , entry "platform" prettyShow pkgHashPlatform
  , opt "flags" mempty showFlagAssignment pkgHashFlagAssignment
  , opt "configure-script" [] unwords pkgHashConfigureScriptArgs

diff --git a/cabal-install/src/Distribution/Client/ProjectBuilding/UnpackedPackage.hs b/cabal-install/src/Distribution/Client/ProjectBuilding/UnpackedPackage.hs
@@ -71,7 +71,6 @@ import Distribution.Simple.BuildPaths (haddockDirName)
 import Distribution.Simple.Command (CommandUI)
 import Distribution.Simple.Compiler
  ( PackageDBStack
- , compilerId
  )
 import qualified Distribution.Simple.InstallDirs as InstallDirs
 import Distribution.Simple.LocalBuildInfo

diff --git a/cabal-install/src/Distribution/Client/ProjectPlanning.hs b/cabal-install/src/Distribution/Client/ProjectPlanning.hs
@@ -4310,6 +4310,7 @@ packageHashConfigInputs
 packageHashConfigInputs shared@ElaboratedSharedConfig{..} pkg =
  PackageHashConfigInputs
  { pkgHashCompilerId = compilerId pkgConfigCompiler
+ , pkgHashCompilerABI = compilerAbiTag pkgConfigCompiler
  , pkgHashPlatform = pkgConfigPlatform
  , pkgHashFlagAssignment = elabFlagAssignment
  , pkgHashConfigureScriptArgs = elabConfigureScriptArgs

diff --git a/cabal-testsuite/src/Test/Cabal/Monad.hs b/cabal-testsuite/src/Test/Cabal/Monad.hs
@@ -63,7 +63,7 @@ import Test.Cabal.TestCode
 import Distribution.Pretty (prettyShow)
 import Distribution.Simple.Compiler
  ( PackageDBStack, PackageDB(..), compilerFlavor
- , Compiler, compilerVersion, showCompilerId )
+ , Compiler, compilerVersion, showCompilerIdWithAbi )
 import Distribution.System
 import Distribution.Simple.Program.Db
 import Distribution.Simple.Program
@@ -582,7 +582,7 @@ testLibInstallDir env = libDir </> compilerDir
  libDir = case os of
  Windows -> testPrefixDir env
  _ -> testPrefixDir env </> "lib"
- compilerDir = prettyShow platform ++ "-" ++ showCompilerId (testCompiler env)
+ compilerDir = prettyShow platform ++ "-" ++ showCompilerIdWithAbi (testCompiler env)
 
 -- | The absolute path to the build directory that should be used
 -- for the current package in a test.

diff --git a/cabal-testsuite/src/Test/Cabal/OutputNormalizer.hs b/cabal-testsuite/src/Test/Cabal/OutputNormalizer.hs
@@ -56,10 +56,15 @@ normalizeOutput nenv =
  -- which will pick up the install ghc library (which doesn't have the
  -- date glob).
  . (if normalizerGhcVersion nenv /= nullVersion
- then resub (posixRegexEscape (display (normalizerGhcVersion nenv))
- -- Also glob the date, for nightly GHC builds
- ++ "(\\.[0-9]+)?")
- "<GHCVER>"
+ then
+ let ghcver = posixRegexEscape (display (normalizerGhcVersion nenv))
+ -- Also glob the date, for nightly GHC builds
+ ++ "(\\.[0-9]+)?"
+ in resub ghcver "<GHCVER>"
+ . resub (ghcver
+ -- Also glob the GHC ABI hash, which is used from ghc 9.8
+ ++ "-[a-z0-9]+")
+ (ghcver ++ "<GHCABI>")
  else id)
  -- hackage-security locks occur non-deterministically
  . resub "(Released|Acquired|Waiting) .*hackage-security-lock\n" ""