guix/guix-cuirass
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/guix-cuirass.git synced 2023-12-14 06:03:04 +01:00
Code Issues Releases Wiki Activity

templates: Add build log links.

Browse source 
* src/cuirass/templates.scm (build-eval-table): Add build log links to the
table.
This commit is contained in:
TSholokhova 2018-08-05 19:15:57 +02:00 committed by Clément Lassieur
parent f51bd3f554
commit 3b08d6ea98
No known key found for this signature in database
GPG key ID: 89F96D4808F359C7
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/cuirass/templates.scm
View file

@ -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