diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-03-02 23:33:46 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-03-03 00:18:30 +0100 |
| commit | f8187bde7f6eb364a4b1280626efe088b3a38948 (patch) | |
| tree | 70dca7d15f3d75bfa8ad9ebf4faced30b05f5e86 /build-aux | |
| parent | 1b846da8c372bee78851439fd9e72b2499115e5a (diff) | |
| download | guix-patches-f8187bde7f6eb364a4b1280626efe088b3a38948.tar guix-patches-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.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 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) |