[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/06: progress: Call 'time-difference' on times of the same type.
From: |
guix-commits |
Subject: |
01/06: progress: Call 'time-difference' on times of the same type. |
Date: |
Mon, 24 Jun 2019 17:28:37 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit b6f5339dd0180fe73ab70d9c5b851ca0adc04193
Author: Ludovic Courtès <address@hidden>
Date: Mon Jun 24 23:10:13 2019 +0200
progress: Call 'time-difference' on times of the same type.
Guile 2.2.5 and 2.9.2 would catch the issue.
This is a followup to 88bc3c89bf5145d24c2270d2192b7be547e0024f.
* guix/progress.scm (display-download-progress)[elapsed]: Pass
'current-time' the same type as START-TIME.
---
guix/progress.scm | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/guix/progress.scm b/guix/progress.scm
index f150b08..349637d 100644
--- a/guix/progress.scm
+++ b/guix/progress.scm
@@ -197,7 +197,9 @@ object) and TRANSFERRED (a total number of bytes) to
determine the
throughput."
(define elapsed
(duration->seconds
- (time-difference (current-time time-monotonic) start-time)))
+ (time-difference (current-time (time-type start-time))
+ start-time)))
+
(if (and (number? size) (not (zero? size)))
(let* ((% (* 100.0 (/ transferred size)))
(throughput (/ transferred elapsed))
- branch master updated (38c8437 -> dc17daa), guix-commits, 2019/06/24
- 01/06: progress: Call 'time-difference' on times of the same type.,
guix-commits <=
- 04/06: doc: Use new upstream nomenclature for NetworkManager’s dnsmasq., guix-commits, 2019/06/24
- 03/06: doc: Recommend '-enable-kvm' for installing in a VM as well., guix-commits, 2019/06/24
- 06/06: doc: Document use cases for NetworkManager with dnsmasq., guix-commits, 2019/06/24
- 02/06: gnu: Add Guile-JPEG., guix-commits, 2019/06/24
- 05/06: services: network-manager: Create '/var/lib/misc' directory for dnsmasq., guix-commits, 2019/06/24