[no subject]

[Ludovic Courtès]

branch: master
commit be79b1e4067a029dbe84d88dc6731a8a2a70db32
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Sep 20 11:30:26 2023 +0200

    templates: Show build machine and/or worker on build page.
    
    Fixes <https://issues.guix.gnu.org/66059>.
    
    * src/cuirass/templates.scm (build-details): Show build machine.
    
    Reported-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
---
 src/cuirass/templates.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm
index daf097c..a628e58 100644
--- a/src/cuirass/templates.scm
+++ b/src/cuirass/templates.scm
@@ -839,7 +839,19 @@ the existing SPEC otherwise."
               `((tr (th "Build outputs")
                     (td
                      (ul (@ (class "list-group d-flex flex-row"))
-                         ,product-items))))))))
+                         ,product-items))))))
+      ,@(match (build-worker build)
+          ((or #f "") '())
+          (name
+           (let ((worker (db-get-worker name)))
+             (if worker
+                 `((tr (th "Build machine")
+                       (td (a (@ (href
+                                  ,(string-append "/machine/"
+                                                  (worker-machine worker))))
+                              ,(worker-machine worker))
+                           ", worker " ,name)))
+                 `((tr (th "Worker") (td ,name)))))))))
     ,@(if (null? history)
           '()
           `((h6 "Build history")