diff options
| author | TSholokhova <tanja201396@gmail.com> | 2018-08-05 19:15:57 +0200 |
|---|---|---|
| committer | Clément Lassieur <clement@lassieur.org> | 2018-09-30 13:14:02 +0200 |
| commit | 3b08d6ea9872e0649ccc5805538c6f9425a55f9a (patch) | |
| tree | 70f28b295c88d0c80bdf0161f11ba4fa875f04bf | |
| parent | f51bd3f55427d65d7d28260ceb05b889a657e0ab (diff) | |
| download | cuirass-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.scm | 7 |
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 |