Pass the exit code of the preBuildHook to the postBuildHook

haskell · May 9, 2024 · 33aabe0 · 33aabe0
1 parent 98b6d7f
commit 33aabe0
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/cabal-install/src/Distribution/Client/ProjectBuilding/UnpackedPackage.hs b/cabal-install/src/Distribution/Client/ProjectBuilding/UnpackedPackage.hs
@@ -681,7 +681,7 @@ buildAndInstallUnpackedPackage
           hooksDir <- (</> "cabalHooks") <$> getCurrentDirectory
           -- run preBuildHook. If it returns with 0, we assume the build was
           -- successful. If not, run the build.
-          void $
+          preCode <-
             rawSystemExitCode
               verbosity
               (Just srcdir)
@@ -706,6 +706,7 @@ buildAndInstallUnpackedPackage
               [ (unUnitId $ installedUnitId rpkg)
               , (getSymbolicPath srcdir)
               , (getSymbolicPath builddir)
+              , show preCode
               ]
               Nothing
               `catchIO` (\_ -> pure (ExitFailure 10))