summary refs log tree commit diff
path: root/build-aux
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
parent1b846da8c372bee78851439fd9e72b2499115e5a (diff)
downloadguix-f8187bde7f6eb364a4b1280626efe088b3a38948.tar.gz
hydra: Improve readability.
* build-aux/hydra/gnu-system.scm (hydra-jobs): Use 'filter-map' instead
of directly 'fold-packages'.
Diffstat (limited to 'build-aux')
-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)