me/guix
Archived
1
0
Fork 0
Code Activity

ci: Add bootstrap packages to the core subset.

Browse source 
* gnu/ci.scm (%bootstrap-packages): New variable.
(cuirass-jobs): Add it to the core subset.
This commit is contained in:
Mathieu Othacehe 2021-07-09 12:07:24 +02:00
parent 7bb9c3ebbb
commit df49fe2a13
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gnu/ci.scm
View file

@ -69,6 +69,7 @@
#:export (derivation->job #:export (derivation->job
image->job image->job
%bootstrap-packages
%core-packages %core-packages
%cross-targets %cross-targets
channel-source->package channel-source->package
@ -148,6 +149,14 @@ SYSTEM."
%guile-bootstrap-tarball %guile-bootstrap-tarball
%bootstrap-tarballs)) %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) (define (packages-to-cross-build target)
"Return the list of packages to cross-build for TARGET." "Return the list of packages to cross-build for TARGET."
;; Don't cross-build the bootstrap tarballs for MinGW. ;; Don't cross-build the bootstrap tarballs for MinGW.
@ -508,7 +517,7 @@ valid."
(map (lambda (package) (map (lambda (package)
(package-job store (job-name package) (package-job store (job-name package)
package system)) package system))
%core-packages) (append %bootstrap-packages %core-packages))
(cross-jobs store system))) (cross-jobs store system)))
('guix ('guix
;; Build Guix modules only. ;; Build Guix modules only.