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
(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"