diff options
Diffstat (limited to 'guix-data-service/web/view/html.scm')
-rw-r--r-- | guix-data-service/web/view/html.scm | 29 |
1 files changed, 26 insertions, 3 deletions
diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index 6e28837..da7e992 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -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 |