diff options
Diffstat (limited to 'guix-data-service/web/build-server/html.scm')
| -rw-r--r-- | guix-data-service/web/build-server/html.scm | 25 |
1 files changed, 23 insertions, 2 deletions
diff --git a/guix-data-service/web/build-server/html.scm b/guix-data-service/web/build-server/html.scm index 7a94315..224c75d 100644 --- a/guix-data-service/web/build-server/html.scm +++ b/guix-data-service/web/build-server/html.scm @@ -23,7 +23,8 @@ view-signing-key)) (define (view-build query-parameters - build) + build + required-failed-builds) (define derivation (assq-ref query-parameters 'derivation_file_name)) @@ -66,7 +67,27 @@ (td ,(assoc-ref status "timestamp")) (td ,(build-status-span (assoc-ref status "status"))))) - (vector->list statuses))))))))))))) + (vector->list statuses))))))))) + ,@(if required-failed-builds + `((div + (@ (class "row")) + (div + (@ (class "col-sm-6")) + (h3 "Required failed builds") + (table + (@ (class "table")) + (thead + (tr + (th "Derivation") + (th "Status"))) + (tbody + ,@(map (match-lambda + ((derivation status) + `(tr + (td ,(display-possible-store-item derivation)) + (td ,(build-status-span status))))) + required-failed-builds)))))) + '()))))) (define (view-signing-key sexp) (layout |