summaryrefslogtreecommitdiff
path: root/guix/ssh.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-07-29 15:19:55 +0200
committerLudovic Courtès <ludo@gnu.org>2018-07-29 18:50:28 +0200
commitb90d97ec2e80830e387716d2919ba36e5b6afac8 (patch)
tree92264bdd8acff29cdd2eba03321e665b1ffcc527 /guix/ssh.scm
parent3f8c82e6d3094c41ff0ad841aa5f06959144da71 (diff)
ssh: Display the size of the store items being sent.
* guix/ssh.scm (send-files): Compute the size of MISSING and display it.
Diffstat (limited to 'guix/ssh.scm')
-rw-r--r--guix/ssh.scm11
1 files changed, 8 insertions, 3 deletions
diff --git a/guix/ssh.scm b/guix/ssh.scm
index 9e90216a2d..da20d4d8db 100644
--- a/guix/ssh.scm
+++ b/guix/ssh.scm
@@ -279,10 +279,15 @@ Return the list of store items actually sent."
(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)