From 0289dc14732a64016f66e3a83f765e319960903b Mon Sep 17 00:00:00 2001
From: Clément Lassieur <clement@lassieur.org>
Date: Wed, 14 Nov 2018 09:13:21 +0100
Subject: progress: Fix crash because of division by zero.

* guix/progress.scm (display-download-progress): Handle the case where SIZE is
null.
---
 guix/progress.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'guix')

diff --git a/guix/progress.scm b/guix/progress.scm
index 9da667a027..7a25f11bd4 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
-- 
cgit v1.2.3