branch core-updates updated: ci: Don't cross build bootstrap tarballs to MinGW.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

civodul pushed a commit to branch core-updates
in repository guix.

The following commit(s) were added to refs/heads/core-updates by this push:
     new 668a519  ci: Don't cross build bootstrap tarballs to MinGW.
668a519 is described below

commit 668a519870237d3472e5724089d570458874e5b5
Author: Ludovic Courtès <address@hidden>
AuthorDate: Mon Feb 24 15:42:05 2020 +0100

    ci: Don't cross build bootstrap tarballs to MinGW.
    
    This makes little sense and it broke in commit
    8bd2b15b06f6306e37cc72995b76a7f0754cf1a6 since the mingw libc doesn't
    have a "static" output.
    
    * gnu/ci.scm (%packages-to-cross-build): Remove.
    (packages-to-cross-build): New procedure.
    (hydra-jobs)[cross-jobs]: Use it.
---
 gnu/ci.scm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/gnu/ci.scm b/gnu/ci.scm
index 89f499e..33c2e84 100644
--- a/gnu/ci.scm
+++ b/gnu/ci.scm
@@ -121,8 +121,12 @@ SYSTEM."
         %guile-bootstrap-tarball
         %bootstrap-tarballs))
 
-(define %packages-to-cross-build
-  %core-packages)
+(define (packages-to-cross-build target)
+  "Return the list of packages to cross-build for TARGET."
+  ;; Don't cross-build the bootstrap tarballs for MinGW.
+  (if (string-contains target "mingw")
+      (drop-right %core-packages 6)
+      %core-packages))
 
 (define %cross-targets
   '("mips64el-linux-gnu"
@@ -455,7 +459,7 @@ Return #f if no such checkout is found."
                   (map (lambda (package)
                          (package-cross-job store (job-name package)
                                             package target system))
-                       %packages-to-cross-build))
+                       (packages-to-cross-build target)))
                 (remove (either from-32-to-64? same? pointless?)
                         %cross-targets)))