[bug#32869] [PATCH cuirass] Provide link to build log in build table row.

[Danny Milosavljevic]

* src/cuirass/templates.scm (build-eval-table): Provide link to build log.
---
 src/cuirass/templates.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm
index 7ee579c..9a7bf45 100644
--- a/src/cuirass/templates.scm
+++ b/src/cuirass/templates.scm
@@ -189,7 +189,8 @@
                           ""))))
       (th (@ (scope "row")),(assq-ref build #:id))
       (td ,(assq-ref build #:jobset))
-      (td ,(strftime "%c" (localtime (assq-ref build #:stoptime))))
+      (td (a (@ href "/build/" ,(assq-ref build #:id) "/log/raw")
+             ,(strftime "%c" (localtime (assq-ref build #:stoptime)))))
       (td ,(assq-ref build #:job))
       (td ,(assq-ref build #:nixname))
       (td ,(assq-ref build #:system))))