[bug#33376,1/2] progress: Fix crash because of division by zero.

Message ID 20181114101312.23617-1-clement@lassieur.org
State Accepted
Commit 0289dc14732a64016f66e3a83f765e319960903b
Headers show
Series [bug#33376,1/2] progress: Fix crash because of division by zero. | expand

Checks

Context Check Description
cbaines/applying patch success Successfully applied

Commit Message

Clément Lassieur Nov. 14, 2018, 10:13 a.m. UTC
* guix/progress.scm (display-download-progress): Handle the case where SIZE is
null.
---
 guix/progress.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

Patch

diff --git a/guix/progress.scm b/guix/progress.scm
index 9da667a02..7a25f11bd 100644
--- a/guix/progress.scm
+++ b/guix/progress.scm
@@ -2,6 +2,7 @@ 
 ;;; Copyright © 2017 Sou Bunnbu <iyzsong@gmail.com>
 ;;; Copyright © 2015 Steve Sprang <scs@stevesprang.com>
 ;;; Copyright © 2017, 2018 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -197,7 +198,7 @@  throughput."
   (define elapsed
     (duration->seconds
      (time-difference (current-time time-monotonic) start-time)))
-  (if (number? size)
+  (if (and (number? size) (not (zero? size)))
       (let* ((%  (* 100.0 (/ transferred size)))
              (throughput (/ transferred elapsed))
              (left       (format #f " ~a  ~a" file