diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2019-06-29 23:23:59 +0200 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2019-06-29 23:23:59 +0200 |
| commit | 6e1f8d552b73e508bba47dedb5676ce5ccdcc398 (patch) | |
| tree | 952a8fa2652ad26946100707311824b8c7a88768 /guix/progress.scm | |
| parent | c24b896365ebf0c783140e53e000305e682d18c5 (diff) | |
| parent | 8e92d5465fc154fed5d06f7e4a64d7dcccded74d (diff) | |
Merge branch 'master' into staging
Diffstat (limited to 'guix/progress.scm')
| -rw-r--r-- | guix/progress.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/progress.scm b/guix/progress.scm index f150b081d6..349637dbcf 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)) |