diff options
| author | Marius Bakke <marius@gnu.org> | 2020-11-26 01:08:35 +0100 |
|---|---|---|
| committer | Marius Bakke <marius@gnu.org> | 2020-11-26 01:08:35 +0100 |
| commit | bff94a5a537c2c484f9f6e98cab75195c3dde9e7 (patch) | |
| tree | 56c58b40471048d57e3d8650967de47e3520418c /guix | |
| parent | c73a7f7d86c11de6649f12b749c035fd2b6fc1d0 (diff) | |
| parent | f36bee1416ffb1ce1111168bca82e7d0313d65dc (diff) | |
Merge branch 'master' into staging
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/scripts/weather.scm | 36 |
1 files changed, 19 insertions, 17 deletions
diff --git a/guix/scripts/weather.scm b/guix/scripts/weather.scm index 6a2582c997..f28070ddc4 100644 --- a/guix/scripts/weather.scm +++ b/guix/scripts/weather.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2018 Kyle Meyer <kyle@kyleam.com> +;;; Copyright © 2020 Simon Tournier <zimon.toutoune@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -30,6 +31,7 @@ #:use-module (guix grafts) #:use-module (guix gexp) #:use-module ((guix build syscalls) #:select (terminal-columns)) + #:use-module ((guix build utils) #:select (every*)) #:use-module (guix scripts substitute) #:use-module (guix http-client) #:use-module (guix ci) @@ -540,23 +542,23 @@ SERVER. Display information for packages with at least THRESHOLD dependents." (package-outputs packages system)) systems)))))) (exit - (every (lambda (server) - (define coverage - (report-server-coverage server items - #:display-missing? - (assoc-ref opts 'display-missing?))) - (match (assoc-ref opts 'coverage) - (#f #f) - (threshold - ;; PACKAGES may include non-package objects coming from a - ;; manifest. Filter them out. - (report-package-coverage server - (filter package? packages) - systems - #:threshold threshold))) - - (= 1 coverage)) - urls)))))) + (every* (lambda (server) + (define coverage + (report-server-coverage server items + #:display-missing? + (assoc-ref opts 'display-missing?))) + (match (assoc-ref opts 'coverage) + (#f #f) + (threshold + ;; PACKAGES may include non-package objects coming from a + ;; manifest. Filter them out. + (report-package-coverage server + (filter package? packages) + systems + #:threshold threshold))) + + (= 1 coverage)) + urls)))))) ;;; Local Variables: ;;; eval: (put 'let/time 'scheme-indent-function 1) |