branch master updated: remote-worker: Add more logs.

[Mathieu Othacehe]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix-cuirass.

The following commit(s) were added to refs/heads/master by this push:
     new 6a2263c  remote-worker: Add more logs.
6a2263c is described below

commit 6a2263c80ad235c27bb08a06113570ba0c6f0aa4
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Mon Nov 29 13:36:08 2021 +0100

    remote-worker: Add more logs.
    
    * src/cuirass/scripts/remote-worker.scm: Add more logs.
---
 src/cuirass/scripts/remote-worker.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/cuirass/scripts/remote-worker.scm 
b/src/cuirass/scripts/remote-worker.scm
index 9a3607a..de565a4 100644
--- a/src/cuirass/scripts/remote-worker.scm
+++ b/src/cuirass/scripts/remote-worker.scm
@@ -1,5 +1,5 @@
 ;;; remote-worker.scm -- Remote build worker.
-;;; Copyright © 2020 Mathieu Othacehe <othacehe@gnu.org>
+;;; Copyright © 2020, 2021 Mathieu Othacehe <othacehe@gnu.org>
 ;;;
 ;;; This file is part of Cuirass.
 ;;;
@@ -242,6 +242,7 @@ command.  REPLY is a procedure that can be used to reply to 
this server."
                 #:timeout timeout
                 #:max-silent max-silent))
     (('no-build)
+     (info (G_ "No available build.~%") drv)
      #t)))
 
 (define (worker-ping worker server)
@@ -260,6 +261,7 @@ command.  REPLY is a procedure that can be used to reply to 
this server."
             (endpoint (zmq-backend-endpoint address port)))
        (zmq-connect socket endpoint)
        (let loop ()
+         (info (G_ "~a: ping ~a.~%") (worker-name worker) endpoint)
          (ping socket)
          (sleep 60)
          (loop))))))
@@ -338,6 +340,7 @@ and executing them.  The worker can reply on the same 
socket."
          (ready socket worker)
          (worker-ping worker server)
          (let loop ()
+           (info (G_ "~a: request work.~%") (worker-name worker))
            (request-work socket worker)
            (match (zmq-get-msg-parts-bytevector socket '())
              ((empty command)