summary refs log tree commit diff
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2021-07-09 12:07:24 +0200
committerMathieu Othacehe <othacehe@gnu.org>2021-07-09 14:12:40 +0200
commitdf49fe2a13d933c640e3189413c5adfced1103c5 (patch)
treed2ceefb621b79067ecebf7c969b8810957435842
parent7bb9c3ebbb91b94fb8b1bcdf9f37e9c481a71d4d (diff)
downloadguix-df49fe2a13d933c640e3189413c5adfced1103c5.tar.gz
ci: Add bootstrap packages to the core subset.
* gnu/ci.scm (%bootstrap-packages): New variable.
(cuirass-jobs): Add it to the core subset.
-rw-r--r--gnu/ci.scm11
1 files changed, 10 insertions, 1 deletions
diff --git a/gnu/ci.scm b/gnu/ci.scm
index 428000472e..19ec5fbd7b 100644
--- a/gnu/ci.scm
+++ b/gnu/ci.scm
@@ -69,6 +69,7 @@
   #:export (derivation->job
             image->job
 
+            %bootstrap-packages
             %core-packages
             %cross-targets
             channel-source->package
@@ -148,6 +149,14 @@ SYSTEM."
         %guile-bootstrap-tarball
         %bootstrap-tarballs))
 
+(define %bootstrap-packages
+  ;; Return the list of bootstrap packages from the commencement module.
+  (filter package?
+          (module-map
+           (lambda (sym var)
+             (variable-ref var))
+           (resolve-module '(gnu packages commencement)))))
+
 (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.
@@ -508,7 +517,7 @@ valid."
            (map (lambda (package)
                   (package-job store (job-name package)
                                package system))
-                %core-packages)
+                (append %bootstrap-packages %core-packages))
            (cross-jobs store system)))
          ('guix
           ;; Build Guix modules only.