summaryrefslogtreecommitdiff
path: root/build-aux/hydra
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-03-02 23:33:46 +0100
committerLudovic Courtès <ludo@gnu.org>2016-03-03 00:18:30 +0100
commitf8187bde7f6eb364a4b1280626efe088b3a38948 (patch)
tree70dca7d15f3d75bfa8ad9ebf4faced30b05f5e86 /build-aux/hydra
parent1b846da8c372bee78851439fd9e72b2499115e5a (diff)
hydra: Improve readability.
* build-aux/hydra/gnu-system.scm (hydra-jobs): Use 'filter-map' instead of directly 'fold-packages'.
Diffstat (limited to 'build-aux/hydra')
-rw-r--r--build-aux/hydra/gnu-system.scm17
1 files changed, 8 insertions, 9 deletions
diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm
index c3cb9cc7fa..fb22396da9 100644
--- a/build-aux/hydra/gnu-system.scm
+++ b/build-aux/hydra/gnu-system.scm
@@ -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)