[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
From: |
Ludovic Courtès |
Date: |
Sun, 23 Feb 2020 18:09:34 -0500 (EST) |
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)))