ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

ssh: Fix progress bar crash when there are zero items to send.

Browse source 
* guix/ssh.scm (notify-transfer-progress): Do nothing when TOTAL is
zero.
This commit is contained in:
Ludovic Courtès 2020-09-02 23:58:34 +02:00
parent de83660dd3
commit 44c6e6f590
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
guix/ssh.scm
View file

@ -441,14 +441,15 @@ (define (display-bar %)
(progress-bar % (- (max (current-terminal-columns) 5) 5)))
(force-output port))
(let ((% (* 100. (/ sent total))))
(match (vhash-assoc item sizes)
(#f
(display-bar %)
(values port sizes total sent))
((_ . size)
(display-bar %)
(values port sizes total (+ sent size))))))
(unless (zero? total)
(let ((% (* 100. (/ sent total))))
(match (vhash-assoc item sizes)
(#f
(display-bar %)
(values port sizes total sent))
((_ . size)
(display-bar %)
(values port sizes total (+ sent size)))))))
(define (notify-transfer-completion port . args)
"Notify the user that the transfer has completed."