TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

weather: Handle zero requested store items gracefully.

Browse source 
This can happen if the weather information of a package
is requested for an unsupported system.  For example,
try "guix weather icecat --system=aarch64-linux".

* guix/scripts/weather.scm
  (report-server-coverage): Do not divide by zero when zero
  store items are requested from a server.

Fixes: <https://issues.guix.gnu.org/49263>
Reported-By: Jack Hill <jackhill@jackhill.us>
Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
This commit is contained in:
Maxime Devos 2021-06-29 00:06:34 +02:00 committed by Mathieu Othacehe
parent fda0959a14
commit 5ef96ecaae
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 12 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
guix/scripts/weather.scm
View file

@ -3,6 +3,7 @@
;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018 Kyle Meyer <kyle@kyleam.com>
;;; Copyright © 2020 Simon Tournier <zimon.toutoune@gmail.com>
;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
;;;
;;; This file is part of GNU Guix.
;;;
@ -185,9 +186,12 @@ (define* (report-server-coverage server items
#:key display-missing?)
"Report the subset of ITEMS available as substitutes on SERVER.
When DISPLAY-MISSING? is true, display the list of missing substitutes.
Return the coverage ratio, an exact number between 0 and 1."
Return the coverage ratio, an exact number between 0 and 1.
In case ITEMS is an empty list, return 1 instead."
(define MiB (* (expt 2 20) 1.))
;; TRANSLATORS: it is quite possible zero store items are
;; looked for.
(format #t (G_ "looking for ~h store items on ~a...~%")
(length items) server)
@ -208,9 +212,10 @@ (define MiB (* (expt 2 20) 1.))
narinfos))
(time (+ (time-second time)
(/ (time-nanosecond time) 1e9))))
(format #t (G_ " ~,1f% substitutes available (~h out of ~h)~%")
(* 100. (/ obtained requested 1.))
obtained requested)
(when (> requested 0)
(format #t (G_ " ~,1f% substitutes available (~h out of ~h)~%")
(* 100. (/ obtained requested 1.))
obtained requested))
(let ((total (/ (reduce + 0 sizes) MiB)))
(match (length sizes)
((? zero?)
@ -299,7 +304,9 @@ (define MiB (* (expt 2 20) 1.))
;; Return the coverage ratio.
(let ((total (length items)))
(/ (- total (length missing)) total)))))
(if (> total 0)
(/ (- total (length missing)) total)
1)))))
;;;