tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-25 10:31:49 +02:00
Code Activity

hydra: Improve readability.

Browse Source 
* 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
Download Patch File Download Diff File Expand all files Collapse all files
build-aux/hydra/gnu-system.scm
+8 -9
View File
@@ -253,15 +253,14 @@ valid."
(case subset
((all)
;; Build everything.
(fold-packages (lambda (package result)
(let ((job (package->job store package
system)))
(if job
(cons job result)
result)))
(append (qemu-jobs store system)
(tarball-jobs store system)
(cross-jobs system))))
(let ((all (fold-packages cons '()))
(job (lambda (package)
(package->job store package
system))))
(append (filter-map job all)
(qemu-jobs store system)
(tarball-jobs store system)
(cross-jobs system))))
((core)
;; Build core packages only.
(append (map (lambda (package)