branch master updated: remote-server: Fix build worker update.

[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 c92a03f  remote-server: Fix build worker update.
c92a03f is described below

commit c92a03f421f685a7b882f664379a1ae5b411f861
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Mon Oct 4 12:59:47 2021 +0000

    remote-server: Fix build worker update.
    
    * src/cuirass/scripts/remote-server.scm (read-worker-exp): Fix worker 
update.
---
 src/cuirass/scripts/remote-server.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/cuirass/scripts/remote-server.scm 
b/src/cuirass/scripts/remote-server.scm
index 8f94b23..2ef775e 100644
--- a/src/cuirass/scripts/remote-server.scm
+++ b/src/cuirass/scripts/remote-server.scm
@@ -275,14 +275,14 @@ be used to reply to the worker."
                 (zmq-no-build-message)))))))
     (('worker-ping worker)
      (update-worker! worker))
-    (('build-started ('drv drv) ('worker worker))
+    (('build-started ('drv drv) ('worker name))
      (let ((log-file (log-path (%cache-directory) drv))
-           (worker (db-get-worker worker)))
+           (worker (db-get-worker name)))
        (log-message "~a (~a): build started: '~a'."
                     (worker-address worker)
                     (worker-name worker)
                     drv)
-       (db-update-build-worker! drv worker)
+       (db-update-build-worker! drv name)
        (db-update-build-status! drv (build-status started)
                                 #:log-file log-file)))))