cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add a job page

Browse source 
Which shows the output for that job.
This commit is contained in:
Christopher Baines 2019-06-22 01:14:57 +02:00
parent d96add30a0
commit e2c9709c7d
2 changed files with 36 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

29
guix-data-service/web/view/html.scm
View file

@ -41,6 +41,7 @@
view-derivation
view-store-item
view-jobs
view-job
compare
compare/derivations
compare/packages
@ -930,11 +931,12 @@
(tr
(th "Commit")
(th "Source")
(th "Events")))
(th "Events")
(th "")))
(tdata
,@(map (match-lambda
((id commit source git-repository-id created-at succeeded-at
events)
events log-exists?)
`(tr
(@ (class
,(let ((event-names
@ -965,9 +967,30 @@
(cons
`(("event" . "created")
("occurred_at" . ,created-at))
(vector->list events))))))))
(vector->list events)))))
(td
,@(if log-exists?
`((a (@ (href ,(string-append "/job/" id)))
"View log"))
'())))))
jobs-and-events)))))))))
(define (view-job job-id log)
(layout
#:body
`(,(header)
(div
(@ (class "container"))
(div
(@ (class "row"))
(div
(@ (class "col-sm-12"))
(h1 "Job " ,job-id)))
(div
(@ (class "row"))
(div
(pre ,log)))))))
(define (view-derivation derivation derivation-inputs derivation-outputs
builds)
(layout