01/03: hydra: Improve readability.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit f8187bde7f6eb364a4b1280626efe088b3a38948
Author: Ludovic Courtès <address@hidden>
Date:   Wed Mar 2 23:33:46 2016 +0100

    hydra: Improve readability.
    
    * build-aux/hydra/gnu-system.scm (hydra-jobs): Use 'filter-map' instead
    of directly 'fold-packages'.
---
 build-aux/hydra/gnu-system.scm |   17 ++++++++---------
 1 files changed, 8 insertions(+), 9 deletions(-)

diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm
index c3cb9cc..fb22396 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)