me
/
guix
Archived
1
0
Fork 0
Code

hydra: Factorize package list creation. 

* build-aux/hydra/gnu-system.scm (all-packages): New procedure, with
body taken from...
(hydra-jobs): ... here.  Use it.
master
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
#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.
@ -317,17 +330,7 @@ valid."
(case subset
((all)
;; Build everything, including replacements.
(let ((all (fold-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))))
'()))
(let ((all (all-packages))
(job (lambda (package)
(package->job store package
system))))