ci: Add bootstrap packages to the core subset.
* gnu/ci.scm (%bootstrap-packages): New variable. (cuirass-jobs): Add it to the core subset.master
parent
74168d99bb
commit
37861f6c29
11
gnu/ci.scm
11
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.
|
||||
|
|
Reference in New Issue