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

10
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
(match build
((url derivation-file-name statuses)
(if (member (if (member
(assoc-ref (last (vector->list (third build))) (assoc-ref (last (vector->list statuses))
"status") "status")
'("failed-dependency" '("failed-dependency"
"scheduled")) ; scheduled, because the "scheduled")) ; scheduled, because the
; guix-build-coordinator doesn't ; guix-build-coordinator
; mark builds as ; doesn't mark builds as
; failed-dependency ; failed-dependency
(select-required-builds-that-failed (select-required-builds-that-failed
conn conn
build-server-id build-server-id
derivation-file-name) derivation-file-name)
#f))) #f)))))
(render-html (render-html
#:sxml (general-not-found #:sxml (general-not-found
"Build not found" "Build not found"