[no subject]

[Ludovic Courtès]

branch: master
commit 1f5e5796ef4a34c273191af5ec773f94736d5063
Author: Ludovic Courtès <address@hidden>
AuthorDate: Sun Feb 23 23:26:19 2020 +0100

    templates: Build page links to corresponding evaluation.
    
    * src/cuirass/templates.scm (build-details): Define 'evaluation'.  Add
    "Evaluation" row with a link to EVALUATION.
---
 src/cuirass/templates.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm
index 7477191..3f7647d 100644
--- a/src/cuirass/templates.scm
+++ b/src/cuirass/templates.scm
@@ -1,6 +1,6 @@
 ;;; templates.scm -- HTTP API
 ;;; Copyright © 2018 Tatiana Sholokhova <address@hidden>
-;;; Copyright © 2018, 2019 Ludovic Courtès <address@hidden>
+;;; Copyright © 2018, 2019, 2020 Ludovic Courtès <address@hidden>
 ;;; Copyright © 2019 Ricardo Wurmus <address@hidden>
 ;;;
 ;;; This file is part of Cuirass.
@@ -204,15 +204,24 @@
                                  store (list (derivation-input drv))
                                  #:substitutable-info (const #f))))))
         '()))
+
   (define completed?
     (or (= (build-status succeeded) status)
         (= (build-status failed) status)))
+
+  (define evaluation
+    (assq-ref build #:eval-id))
+
   `((p (@ (class "lead")) "Build details")
     (table
      (@ (class "table table-sm table-hover"))
      (tbody
       (tr (th "Build ID")
           (td ,(assq-ref build #:id)))
+      (tr (th "Evaluation")
+          (td (a (@ (href ,(string-append "/eval/"
+                                          (number->string evaluation))))
+                 ,(number->string evaluation))))
       (tr (th "Status")
           (td (span (@ (class ,(status-class status))
                        (title ,(status-title status)))