aboutsummaryrefslogtreecommitdiff
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:15 +0200
commit37861f6c293d7ed1033050b2b0597885ba65186f (patch)
treee40720c27eacf7a510e3e4cc6aedaaaabc1c0097
parent74168d99bb50e8dd17af970d83eca771487be467 (diff)
downloadguix-37861f6c293d7ed1033050b2b0597885ba65186f.tar
guix-37861f6c293d7ed1033050b2b0597885ba65186f.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 c5de25e70e..ceb1b94af9 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.