From f8187bde7f6eb364a4b1280626efe088b3a38948 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 2 Mar 2016 23:33:46 +0100 Subject: 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 file changed, 8 insertions(+), 9 deletions(-) (limited to 'build-aux/hydra') 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) -- cgit v1.2.3