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 <[email protected]>
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)))))
