cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix rendering the required failed builds for builds by id

Browse source 
Use the derivation-file-name from the database, rather than the query
parameter.
This commit is contained in:
Christopher Baines 2020-07-13 19:12:09 +01:00
parent a1af644310
commit 1e0332136e
1 changed files with 15 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

28
guix-data-service/web/build-server/controller.scm
View file

@ -70,19 +70,21 @@
#:sxml #:sxml
(view-build query-parameters (view-build query-parameters
build build
(if (member (match build
(assoc-ref (last (vector->list (third build))) ((url derivation-file-name statuses)
"status") (if (member
'("failed-dependency" (assoc-ref (last (vector->list statuses))
"scheduled")) ; scheduled, because the "status")
; guix-build-coordinator doesn't '("failed-dependency"
; mark builds as "scheduled")) ; scheduled, because the
; failed-dependency ; guix-build-coordinator
(select-required-builds-that-failed ; doesn't mark builds as
conn ; failed-dependency
build-server-id (select-required-builds-that-failed
derivation-file-name) conn
#f))) build-server-id
derivation-file-name)
#f)))))
(render-html (render-html
#:sxml (general-not-found #:sxml (general-not-found
"Build not found" "Build not found"