kreyren/guix-kreyren
1
0
Fork 0
Code Issues 1 Pull Requests 1 Releases Activity

progress: Call 'time-difference' on times of the same type.

Browse Source 
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.
This commit is contained in:
Ludovic Courtès 2019-06-24 23:10:13 +02:00
parent 38c8437e6e
commit b6f5339dd0
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
guix/progress.scm
View File

@ -197,7 +197,9 @@ object) and TRANSFERRED (a total number of bytes) to determine the
throughput." throughput."
(define elapsed (define elapsed
(duration->seconds (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))) (if (and (number? size) (not (zero? size)))
(let* ((% (* 100.0 (/ transferred size))) (let* ((% (* 100.0 (/ transferred size)))
(throughput (/ transferred elapsed)) (throughput (/ transferred elapsed))