From 3b08d6ea9872e0649ccc5805538c6f9425a55f9a Mon Sep 17 00:00:00 2001 From: TSholokhova Date: Sun, 5 Aug 2018 19:15:57 +0200 Subject: templates: Add build log links. * src/cuirass/templates.scm (build-eval-table): Add build log links to the table. --- src/cuirass/templates.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm index 31c6081..3017880 100644 --- a/src/cuirass/templates.scm +++ b/src/cuirass/templates.scm @@ -173,7 +173,8 @@ and BUILD-MAX are global minimal and maximal (stoptime, rowid) pairs." (th (@ (scope "col")) "Finished at") (th (@ (scope "col")) Job) (th (@ (scope "col")) Nixname) - (th (@ (scope "col")) System)))) + (th (@ (scope "col")) System) + (th (@ (scope "col")) Log)))) (define (table-row build) `(tr @@ -195,7 +196,9 @@ and BUILD-MAX are global minimal and maximal (stoptime, rowid) pairs." (td ,(strftime "%c" (localtime (assq-ref build #:stoptime)))) (td ,(assq-ref build #:job)) (td ,(assq-ref build #:nixname)) - (td ,(assq-ref build #:system)))) + (td ,(assq-ref build #:system)) + (td (a (@ (href "/build/" ,(assq-ref build #:id) "/log/raw")) + raw)))) (define (build-id build) (match build -- cgit v1.2.3