01/05: ssh: Display the size of the store items being sent.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit b90d97ec2e80830e387716d2919ba36e5b6afac8
Author: Ludovic Courtès <address@hidden>
Date:   Sun Jul 29 15:19:55 2018 +0200

    ssh: Display the size of the store items being sent.
    
    * guix/ssh.scm (send-files): Compute the size of MISSING and display
    it.
---
 guix/ssh.scm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/guix/ssh.scm b/guix/ssh.scm
index 9e90216..da20d4d 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)