[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
From: |
Tatiana |
Date: |
Sun, 5 Aug 2018 15:26:12 -0400 (EDT) |
branch: web-interface
commit 2bb55c161b0f49bd56fd59ae1e813aa4185bebe1
Author: TSholokhova <address@hidden>
Date: Sun Aug 5 19:15:57 2018 +0200
web-interface: 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 5799ee1..2e6c839 100644
--- a/src/cuirass/templates.scm
+++ b/src/cuirass/templates.scm
@@ -161,7 +161,8 @@
(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
@@ -183,7 +184,9 @@
(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