diff options
author | Christopher Baines <mail@cbaines.net> | 2019-12-15 11:05:14 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2019-12-16 15:19:02 +0000 |
commit | 18504fba49ee23d17d3a26744ea084b681647442 (patch) | |
tree | cc9b8cf9df02bd388ac1d3ae2a2e40430a23c942 /guix-data-service | |
parent | 5337b171eac6b8390c9b1e8de3b8bc7fd46bdc60 (diff) | |
download | data-service-18504fba49ee23d17d3a26744ea084b681647442.tar data-service-18504fba49ee23d17d3a26744ea084b681647442.tar.gz |
Show the possible failure reasons on the build page
When the build status is "Failed (dependency)".
Diffstat (limited to 'guix-data-service')
-rw-r--r-- | guix-data-service/web/build-server/controller.scm | 13 | ||||
-rw-r--r-- | guix-data-service/web/build-server/html.scm | 25 |
2 files changed, 34 insertions, 4 deletions
diff --git a/guix-data-service/web/build-server/controller.scm b/guix-data-service/web/build-server/controller.scm index accadd2..e0b416e 100644 --- a/guix-data-service/web/build-server/controller.scm +++ b/guix-data-service/web/build-server/controller.scm @@ -52,11 +52,20 @@ (select-build-by-build-server-and-derivation-file-name conn build-server-id - derivation-file-name))) + derivation-file-name)) + (latest-build-status + (assoc-ref (last (vector->list (second build))) + "status"))) (render-html #:sxml (view-build query-parameters - build))))) + build + (if (string=? latest-build-status "failed-dependency") + (select-required-builds-that-failed + conn + build-server-id + derivation-file-name) + #f)))))) (define (handle-build-event-submission parsed-query-parameters build-server-id-string diff --git a/guix-data-service/web/build-server/html.scm b/guix-data-service/web/build-server/html.scm index 44c9936..7cc4f8e 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)) @@ -65,7 +66,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 |