[no subject]

[Mathieu Othacehe]

branch: wip-logs
commit 0a014194ee7eaeaf8f4312adfba7b58b74a4fe4b
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Mon Nov 29 13:59:31 2021 +0100

    wip: add remote-worker logs.
---
 src/cuirass/scripts/remote-worker.scm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/src/cuirass/scripts/remote-worker.scm 
b/src/cuirass/scripts/remote-worker.scm
index d25ad4f..764ebdc 100644
--- a/src/cuirass/scripts/remote-worker.scm
+++ b/src/cuirass/scripts/remote-worker.scm
@@ -204,7 +204,8 @@ still be substituted."
                           #:max-silent max-silent)
       (reply (zmq-build-started-message drv name))
       (guard (c ((store-protocol-error? c)
-                 (info (G_ "Derivation `~a' build failed: ~a~%")
+                 (info (G_ "~a: derivation `~a' build failed: ~a~%")
+                       name
                        drv (store-protocol-error-message c))
                  (reply (zmq-build-failed-message drv local-publish-url))))
         (let ((result
@@ -215,11 +216,11 @@ still be substituted."
                  (finish))))
           (if result
               (begin
-                (info (G_ "Derivation ~a build succeeded.~%") drv)
+                (info (G_ "~a: derivation ~a build succeeded.~%") name drv)
                 (register-gc-roots drv)
                 (reply (zmq-build-succeeded-message drv local-publish-url)))
               (begin
-                (info (G_ "Derivation ~a build failed.~%") drv)
+                (info (G_ "~a: derivation ~a build failed.~%") name drv)
                 (reply
                  (zmq-build-failed-message drv local-publish-url)))))))))
 
@@ -235,15 +236,16 @@ command.  REPLY is a procedure that can be used to reply 
to this server."
              ('max-silent max-silent)
              ('timestamp timestamp)
              ('system system))
-     (info (G_ "Building `~a' derivation.~%") drv)
+     (info (G_ "~a: building `~a' derivation.~%")
+           (worker-name worker) drv)
      (run-build drv server
                 #:reply reply
                 #:worker worker
                 #:timeout timeout
                 #:max-silent max-silent))
     (('no-build)
-     (info (G_ "~a: No available build.~%"
-               (worker-name worker)))
+     (info (G_ "~a: no available build.~%")
+           (worker-name worker))
      #t)))
 
 (define (worker-ping worker server)