mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-07 07:26:13 -05:00
ci: Add bootstrap packages to the core subset.
* gnu/ci.scm (%bootstrap-packages): New variable. (cuirass-jobs): Add it to the core subset.
This commit is contained in:
parent
7bb9c3ebbb
commit
df49fe2a13
1 changed files with 10 additions and 1 deletions
11
gnu/ci.scm
11
gnu/ci.scm
|
@ -69,6 +69,7 @@ (define-module (gnu ci)
|
|||
#:export (derivation->job
|
||||
image->job
|
||||
|
||||
%bootstrap-packages
|
||||
%core-packages
|
||||
%cross-targets
|
||||
channel-source->package
|
||||
|
@ -148,6 +149,14 @@ (define %core-packages
|
|||
%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 @@ (define source
|
|||
(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.
|
||||
|
|
Loading…
Reference in a new issue