[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/05: ssh: Display the size of the store items being sent.
From: |
Ludovic Courtès |
Subject: |
01/05: ssh: Display the size of the store items being sent. |
Date: |
Sun, 29 Jul 2018 12:50:39 -0400 (EDT) |
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)
- branch master updated (3f8c82e -> 99b78ba), Ludovic Courtès, 2018/07/29
- 01/05: ssh: Display the size of the store items being sent.,
Ludovic Courtès <=
- 02/05: services: openssh: Add forwarding options., Ludovic Courtès, 2018/07/29
- 03/05: linux-initrd: Improve check of initrd modules., Ludovic Courtès, 2018/07/29
- 05/05: linux-initrd: Report only missing modules, not all needed modules., Ludovic Courtès, 2018/07/29
- 04/05: linux-initrd: Try several file names when looking up modules., Ludovic Courtès, 2018/07/29