diff mbox series

[bug#44688] weather: Fix '--substitute-urls'.

Message ID 20201116165151.6022-1-zimon.toutoune@gmail.com
State Accepted
Headers show
Series [bug#44688] weather: Fix '--substitute-urls'. | expand

Checks

Context Check Description
cbaines/submitting builds success
cbaines/comparison success View comparision
cbaines/git branch success View Git branch
cbaines/applying patch success View Laminar job
cbaines/issue success View issue

Commit Message

Simon Tournier Nov. 16, 2020, 4:51 p.m. UTC 
Fixes <https://bugs.gnu.org/44574>.
Reported by Efraim Flashner <efraim@flashner.co.il>.

* guix/scripts/weather.scm (guix-weather): Fix when substitute-urls
is a list.
---
 guix/scripts/weather.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)


base-commit: 243512d984e1b870d3b77b2759698a64ed723fea

Comments

Mathieu Othacehe Nov. 25, 2020, 10:56 a.m. UTC | #1 
Hello zimoun,

> * guix/scripts/weather.scm (guix-weather): Fix when substitute-urls
> is a list.

I fixed indentation and pushed as
c2cc5f0a006fd7797039dae24274833118ea7b47.

Thanks,

Mathieu
diff mbox series

Patch

diff --git a/guix/scripts/weather.scm b/guix/scripts/weather.scm
index 6a2582c997..c6ae4212de 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,7 +542,7 @@  SERVER.  Display information for packages with at least THRESHOLD dependents."
                                     (package-outputs packages system))
                                   systems))))))
         (exit
-         (every (lambda (server)
+         (every* (lambda (server)
                   (define coverage
                     (report-server-coverage server items
                                             #:display-missing?