diff options
author | Christopher Baines <mail@cbaines.net> | 2019-12-15 11:05:14 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2019-12-15 11:05:14 +0000 |
commit | f0c5aba95ec3e1a32b9d88f6e2763da53a234a19 (patch) | |
tree | 1b401fcf01d3db675180db83ff9760022505a146 /guix-data-service/web/build-server/controller.scm | |
parent | df56ccafe3e3c7e756a57ab3d77bf71b3298464c (diff) | |
download | data-service-f0c5aba95ec3e1a32b9d88f6e2763da53a234a19.tar data-service-f0c5aba95ec3e1a32b9d88f6e2763da53a234a19.tar.gz |
Show the possible failure reasons on the build page
When the build status is "Failed (dependency)".
Diffstat (limited to 'guix-data-service/web/build-server/controller.scm')
-rw-r--r-- | guix-data-service/web/build-server/controller.scm | 13 |
1 files changed, 11 insertions, 2 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 |