aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2020-07-13 18:55:07 +0100
committerChristopher Baines <mail@cbaines.net>2020-07-13 18:55:07 +0100
commit745a8bdbf13c83822db4ed9db18fadbef2bc3b4c (patch)
tree741f0cb1cd81ee52bb008c1c5c303365b493048e
parente9d4e74e5606932f34e0f2ab30321ac8384c8edc (diff)
downloaddata-service-745a8bdbf13c83822db4ed9db18fadbef2bc3b4c.tar
data-service-745a8bdbf13c83822db4ed9db18fadbef2bc3b4c.tar.gz
Also show related failed builds for scheduled builds
Because the Guix Build Coordinator doesn't mark builds blocked by failures as failed-dependency, they're just left as scheduled.
-rw-r--r--guix-data-service/web/build-server/controller.scm8
1 files changed, 6 insertions, 2 deletions
diff --git a/guix-data-service/web/build-server/controller.scm b/guix-data-service/web/build-server/controller.scm
index c68ef7d..6fa5385 100644
--- a/guix-data-service/web/build-server/controller.scm
+++ b/guix-data-service/web/build-server/controller.scm
@@ -70,10 +70,14 @@
#:sxml
(view-build query-parameters
build
- (if (string=?
+ (if (member
(assoc-ref (last (vector->list (third build)))
"status")
- "failed-dependency")
+ '("failed-dependency"
+ "scheduled")) ; scheduled, because the
+ ; guix-build-coordinator doesn't
+ ; mark builds as
+ ; failed-dependency
(select-required-builds-that-failed
conn
build-server-id