diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-07-07 14:13:43 +0100 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-07-27 12:01:51 -0400 |
commit | 5412730e009dd30e54d13d2b1e86f7e9b9bc085f (patch) | |
tree | a9a7689296974c2d82d1b3b498f1b74216df7233 | |
parent | acc47bd2d05c36e13fd0e27dfa8a698b34fa58e6 (diff) | |
download | haskell-5412730e009dd30e54d13d2b1e86f7e9b9bc085f.tar.gz |
packaging: Don't include configure scripts in windows bindist
Fixes #19868
-rw-r--r-- | hadrian/src/Rules/BinaryDist.hs | 24 |
1 files changed, 13 insertions, 11 deletions
diff --git a/hadrian/src/Rules/BinaryDist.hs b/hadrian/src/Rules/BinaryDist.hs index 3c94144540..af0088ddff 100644 --- a/hadrian/src/Rules/BinaryDist.hs +++ b/hadrian/src/Rules/BinaryDist.hs @@ -188,17 +188,19 @@ bindistRules = do -- shipping it removeFile (bindistFilesDir -/- mingwStamp) - -- We then 'need' all the files necessary to configure and install - -- (as in, './configure [...] && make install') this build on some - -- other machine. - need $ map (bindistFilesDir -/-) - (["configure", "Makefile"] ++ bindistInstallFiles) - wrappers <- fmap concat (sequence [ pkgToWrappers p | p <- all_pkgs, isProgram p]) - need $ map ((bindistFilesDir -/- "wrappers") -/-) wrappers - - --- IO.removeFile link_path <|> return () --- IO.createFileLink versioned_exe_name link_path + -- These scripts are only necessary in the configure/install + -- workflow which is not supported on windows. + -- TODO: Instead of guarding against windows, we could offer the + -- option to make a relocatable, but not installable bindist on any + -- platform. + unless windowsHost $ do + -- We then 'need' all the files necessary to configure and install + -- (as in, './configure [...] && make install') this build on some + -- other machine. + need $ map (bindistFilesDir -/-) + (["configure", "Makefile"] ++ bindistInstallFiles) + wrappers <- fmap concat (sequence [ pkgToWrappers p | p <- all_pkgs, isProgram p]) + need $ map ((bindistFilesDir -/- "wrappers") -/-) wrappers let buildBinDist :: Compressor -> Action () |