diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-04-30 15:19:41 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-04-30 23:41:21 +0200 |
| commit | 7c8b7e35d020197cffadec2702438e9900192fc0 (patch) | |
| tree | 78f96215fb8485c0df3ac65ed7491d154255ca65 | |
| parent | e64a3b436aabe4a510f81184fd34e04265b63bc7 (diff) | |
| download | patches-7c8b7e35d020197cffadec2702438e9900192fc0.tar patches-7c8b7e35d020197cffadec2702438e9900192fc0.tar.gz | |
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.
| -rw-r--r-- | guix/scripts/weather.scm | 8 |
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)) |