summaryrefslogtreecommitdiff
path: root/guix/scripts
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-04-30 15:19:41 +0200
committerLudovic Courtès <ludo@gnu.org>2018-04-30 23:41:21 +0200
commit7c8b7e35d020197cffadec2702438e9900192fc0 (patch)
tree78f96215fb8485c0df3ac65ed7491d154255ca65 /guix/scripts
parente64a3b436aabe4a510f81184fd34e04265b63bc7 (diff)
weather: Fix type error when reporting CI stats.
* guix/scripts/weather.scm (report-server-coverage): Remove 'missing' binding above 'queued-subset' call. Before that 'queued-subset' would be called with a number instead of a list.
Diffstat (limited to 'guix/scripts')
-rw-r--r--guix/scripts/weather.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/guix/scripts/weather.scm b/guix/scripts/weather.scm
index 5c934abaef..d7c2fbea10 100644
--- a/guix/scripts/weather.scm
+++ b/guix/scripts/weather.scm
@@ -208,10 +208,10 @@ unavailable)~%"))
0 queue)))
(newline)
(unless (null? missing)
- (let ((missing (length missing)))
- (match (queued-subset queue missing)
- (#f #f)
- ((= length queued)
+ (match (queued-subset queue missing)
+ (#f #f)
+ ((= length queued)
+ (let ((missing (length missing)))
(format #t (G_ " ~,1f% (~h out of ~h) of the missing items \
are queued~%")
(* 100. (/ queued missing))