[no subject]

[Clément Lassieur]

branch: master
commit 3b08d6ea9872e0649ccc5805538c6f9425a55f9a
Author: TSholokhova <address@hidden>
Date:   Sun Aug 5 19:15:57 2018 +0200

    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