ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

ssh: Factor out progress % calculation.

Browse source 
* guix/ssh.scm (notify-transfer-progress): Trust its % argument.
This commit is contained in:
Tobias Geerinckx-Rice 2023-02-19 01:00:00 +01:00
parent af80906345
commit 9aa750776a
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
guix/ssh.scm
View file

@ -477,7 +477,7 @@ (define (notify-transfer-progress item port sizes total 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))