ssh: Factor out progress % calculation.

* guix/ssh.scm (notify-transfer-progress): Trust its % argument.
2023-02-19 01:00:00 +01:00 · 2023-02-19 01:00:00 +01:00 · 9aa750776a
commit 9aa750776a
parent af80906345
1 changed files with 1 additions and 1 deletions
--- 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))