[no subject]

[Ludovic Courtès]

branch: master
commit b09737967b41a2ee3481a92305bdbb36d0135477
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Aug 24 10:51:39 2023 +0200

    remote-server: Specify 'system' in build request messages.
    
    Currently 'remote-worker' doesn't actually use this information, but i
    can't hurt.
    
    * src/cuirass/scripts/remote-server.scm (read-worker-exp): Pass #:system
    to 'build-request-message'.
    * src/cuirass/scripts/remote-worker.scm (run-command): Display SYSTEM in
    log message.
---
 src/cuirass/scripts/remote-server.scm | 7 ++++---
 src/cuirass/scripts/remote-worker.scm | 4 ++--
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/src/cuirass/scripts/remote-server.scm 
b/src/cuirass/scripts/remote-server.scm
index 4bc5832..95f1499 100644
--- a/src/cuirass/scripts/remote-server.scm
+++ b/src/cuirass/scripts/remote-server.scm
@@ -268,9 +268,10 @@ be used to reply to the worker."
                (db-update-build-status! derivation (build-status submitted))
                (reply-worker
                 (build-request-message derivation
-                                           #:priority priority
-                                           #:timeout timeout
-                                           #:max-silent max-silent)))
+                                       #:priority priority
+                                       #:timeout timeout
+                                       #:max-silent max-silent
+                                       #:system (build-system build))))
              (begin
                (when (and (%debug) worker)
                  (log-debug "~a (~a): no available build."
diff --git a/src/cuirass/scripts/remote-worker.scm 
b/src/cuirass/scripts/remote-worker.scm
index 991cce6..039c0be 100644
--- a/src/cuirass/scripts/remote-worker.scm
+++ b/src/cuirass/scripts/remote-worker.scm
@@ -262,8 +262,8 @@ command.  REPLY is a procedure that can be used to reply to 
this server."
              ('max-silent max-silent)
              ('timestamp timestamp)
              ('system system))
-     (log-info (G_ "~a: building `~a' derivation.")
-               (worker-name worker) drv)
+     (log-info (G_ "~a: building derivation `~a' (system: ~a)")
+               (worker-name worker) drv system)
      (run-build drv server
                 #:reply reply
                 #:worker worker