branch master updated: Fix rendering the required failed builds for builds by id

[Christopher Baines]

This is an automated email from the git hooks/post-receive script.

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

The following commit(s) were added to refs/heads/master by this push:
     new 1e03321  Fix rendering the required failed builds for builds by id
1e03321 is described below

commit 1e0332136ecaaeb3bc927a62450f8066f2f06ecd
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Mon Jul 13 19:12:09 2020 +0100

    Fix rendering the required failed builds for builds by id
    
    Use the derivation-file-name from the database, rather than the query
    parameter.
---
 guix-data-service/web/build-server/controller.scm | 28 ++++++++++++-----------
 1 file changed, 15 insertions(+), 13 deletions(-)

diff --git a/guix-data-service/web/build-server/controller.scm 
b/guix-data-service/web/build-server/controller.scm
index 6fa5385..8eb5e7a 100644
--- a/guix-data-service/web/build-server/controller.scm
+++ b/guix-data-service/web/build-server/controller.scm
@@ -70,19 +70,21 @@
              #:sxml
              (view-build query-parameters
                          build
-                         (if (member
-                              (assoc-ref (last (vector->list (third build)))
-                                         "status")
-                              '("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
-                              derivation-file-name)
-                             #f)))
+                         (match build
+                           ((url derivation-file-name statuses)
+                            (if (member
+                                 (assoc-ref (last (vector->list statuses))
+                                            "status")
+                                 '("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
+                                 derivation-file-name)
+                                #f)))))
             (render-html
              #:sxml (general-not-found
                      "Build not found"