diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2023-02-19 01:00:00 +0100 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2023-02-19 01:00:06 +0100 |
| commit | 9aa750776a6c6807fbb6b59d1d36361c4d4f7536 (patch) | |
| tree | f59a46a21e3c1fe6cd8ff82ef62fa02ed78c4b26 /guix/ssh.scm | |
| parent | af8090634555d79b9cee4f5a44df41396f0658b5 (diff) | |
| download | guix-9aa750776a6c6807fbb6b59d1d36361c4d4f7536.tar guix-9aa750776a6c6807fbb6b59d1d36361c4d4f7536.tar.gz | |
ssh: Factor out progress % calculation.
* guix/ssh.scm (notify-transfer-progress): Trust its % argument.
Diffstat (limited to 'guix/ssh.scm')
| -rw-r--r-- | guix/ssh.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/ssh.scm b/guix/ssh.scm index 1b825a2573..5b35f664d9 100644 --- a/guix/ssh.scm +++ b/guix/ssh.scm @@ -477,7 +477,7 @@ Use SIZES to determine the size of ITEM, which is about to be sent." (define (display-bar %) (erase-current-line port) (format port "~3@a% ~a" - (inexact->exact (round (* 100. (/ sent total)))) + (inexact->exact (round %)) (progress-bar % (- (max (current-terminal-columns) 5) 5))) (force-output port)) |