01/02: Also show related failed builds for scheduled builds

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit 745a8bdbf13c83822db4ed9db18fadbef2bc3b4c
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Mon Jul 13 18:55:07 2020 +0100

    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.
---
 guix-data-service/web/build-server/controller.scm | 8 ++++++--
 1 file 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