aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTSholokhova <tanja201396@gmail.com>2018-08-05 19:15:57 +0200
committerClément Lassieur <clement@lassieur.org>2018-09-30 13:14:02 +0200
commit3b08d6ea9872e0649ccc5805538c6f9425a55f9a (patch)
tree70f28b295c88d0c80bdf0161f11ba4fa875f04bf
parentf51bd3f55427d65d7d28260ceb05b889a657e0ab (diff)
downloadcuirass-3b08d6ea9872e0649ccc5805538c6f9425a55f9a.tar
cuirass-3b08d6ea9872e0649ccc5805538c6f9425a55f9a.tar.gz
templates: Add build log links.
* src/cuirass/templates.scm (build-eval-table): Add build log links to the table.
-rw-r--r--src/cuirass/templates.scm7
1 files 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