nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

hydra: Factorize package list creation. 

* build-aux/hydra/gnu-system.scm (all-packages): New procedure, with
body taken from...
(hydra-jobs): ... here.  Use it.
This commit is contained in:
Ludovic Courtès 2017-11-07 17:06:32 +01:00
parent ad54924285
commit b5033c5a9e
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -261,6 +261,19 @@ valid."
(else (else
#f))))) #f)))))
(define (all-packages)
"Return the list of packages to build."
(fold-packages (lambda (package result)
(cond ((package-replacement package)
(cons* package ;build both
(package-replacement package)
result))
((package-superseded package)
result) ;don't build it
(else
(cons package result))))
'()))
;;; ;;;
;;; Hydra entry point. ;;; Hydra entry point.
@ -317,17 +330,7 @@ valid."
(case subset (case subset
((all) ((all)
;; Build everything, including replacements. ;; Build everything, including replacements.
(let ((all (fold-packages (let ((all (all-packages))
(lambda (package result)
(cond ((package-replacement package)
(cons* package
(package-replacement package)
result))
((package-superseded package)
result) ;don't build it
(else
(cons package result))))
'()))
(job (lambda (package) (job (lambda (package)
(package->job store package (package->job store package
system)))) system))))