[no subject]

[Ludovic Courtès]

branch: master
commit 1d9606566a0ffbbb3707d77e5e4674bf896512ea
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun Oct 15 16:15:40 2023 +0200

    remote-server: Improve logging.
    
    * src/cuirass/scripts/remote-server.scm (run-fetch): Log the number of
    outputs being fetched.
---
 src/cuirass/scripts/remote-server.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/cuirass/scripts/remote-server.scm 
b/src/cuirass/scripts/remote-server.scm
index 3d00371..2a80527 100644
--- a/src/cuirass/scripts/remote-server.scm
+++ b/src/cuirass/scripts/remote-server.scm
@@ -384,7 +384,8 @@ directory."
   (match message
     (('build-succeeded ('drv drv) ('url url) _ ...)
      (let ((outputs (build-outputs drv)))
-       (log-info "fetching '~a' from ~a" drv url)
+       (log-info "fetching ~a outputs of '~a' from ~a"
+                 (length outputs) drv url)
        (call-with-time
         (lambda ()
           (add-to-store drv outputs url))