me
/
guix
Archived
1
0
Fork 0
Code

hydra: Add jobs for all of '%final-inputs'. 

* build-aux/hydra/gnu-system.scm (package->job): Create a 'base.' job
when PACKAGE is a member of BASE-PACKAGES.
(all-packages)[adjust]: New procedure.
Fold over %FINAL-INPUTS and add it to the result.
master
Ludovic Courtès 2017-11-07 18:06:46 +01:00
parent f4433d09a1
commit b574cee361
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 17 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
build-aux/hydra/gnu-system.scm
View File

@ -251,7 +251,8 @@ all its dependencies, and ready to be installed on non-GuixSD distributions.")
"Return a job for PACKAGE on SYSTEM, or #f if this combination is not "Return a job for PACKAGE on SYSTEM, or #f if this combination is not
valid." valid."
(cond ((member package base-packages) (cond ((member package base-packages)
#f) (package-job store (symbol-append 'base. (job-name package))
package system))
((supported-package? package system) ((supported-package? package system)
(let ((drv (package-derivation store package system (let ((drv (package-derivation store package system
#:graft? #f))) #:graft? #f)))
@ -263,16 +264,21 @@ valid."
(define (all-packages) (define (all-packages)
"Return the list of packages to build." "Return the list of packages to build."
(fold-packages (lambda (package result) (define (adjust package result)
(cond ((package-replacement package) (cond ((package-replacement package)
(cons* package ;build both (cons* package ;build both
(package-replacement package) (package-replacement package)
result)) result))
((package-superseded package) ((package-superseded package)
result) ;don't build it result) ;don't build it
(else (else
(cons package result)))) (cons package result))))
'()
(fold-packages adjust
(fold adjust '() ;include base packages
(match (%final-inputs)
(((labels packages _ ...) ...)
packages)))
#:select? (const #t))) ;include hidden packages #:select? (const #t))) ;include hidden packages