mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-25 05:48:07 -05:00
ssh: Display the size of the store items being sent.
* guix/ssh.scm (send-files): Compute the size of MISSING and display it.
This commit is contained in:
parent
3f8c82e6d3
commit
b90d97ec2e
1 changed files with 8 additions and 3 deletions
11
guix/ssh.scm
11
guix/ssh.scm
|
@ -279,10 +279,15 @@ (define* (send-files local files remote
|
|||
(remove (cut valid-path? store <>)
|
||||
',files)))))
|
||||
(count (length missing))
|
||||
(sizes (map (lambda (item)
|
||||
(path-info-nar-size (query-path-info local item)))
|
||||
missing))
|
||||
(port (store-import-channel session)))
|
||||
(format log-port (N_ "sending ~a store item to '~a'...~%"
|
||||
"sending ~a store items to '~a'...~%" count)
|
||||
count (session-get session 'host))
|
||||
(format log-port (N_ "sending ~a store item (~h MiB) to '~a'...~%"
|
||||
"sending ~a store items (~h MiB) to '~a'...~%" count)
|
||||
count
|
||||
(inexact->exact (round (/ (reduce + 0 sizes) (expt 2. 20))))
|
||||
(session-get session 'host))
|
||||
|
||||
;; Send MISSING in topological order.
|
||||
(export-paths local missing port)
|
||||
|
|
Loading…
Reference in a new issue