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

hydra: Improve readability. 

* build-aux/hydra/gnu-system.scm (hydra-jobs): Use 'filter-map' instead
of directly 'fold-packages'.
This commit is contained in:
Ludovic Courtès 2016-03-02 23:33:46 +01:00
parent 1b846da8c3
commit f8187bde7f
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -253,15 +253,14 @@ valid."
(case subset (case subset
((all) ((all)
;; Build everything. ;; Build everything.
(fold-packages (lambda (package result) (let ((all (fold-packages cons '()))
(let ((job (package->job store package (job (lambda (package)
system))) (package->job store package
(if job system))))
(cons job result) (append (filter-map job all)
result))) (qemu-jobs store system)
(append (qemu-jobs store system) (tarball-jobs store system)
(tarball-jobs store system) (cross-jobs system))))
(cross-jobs system))))
((core) ((core)
;; Build core packages only. ;; Build core packages only.
(append (map (lambda (package) (append (map (lambda (package)