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

Show the possible failure reasons on the build page

Browse source 
When the build status is "Failed (dependency)".
This commit is contained in:
Christopher Baines 2019-12-15 11:05:14 +00:00
parent 5337b171ea
commit 18504fba49
2 changed files with 34 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -52,11 +52,20 @@
(select-build-by-build-server-and-derivation-file-name (select-build-by-build-server-and-derivation-file-name
conn conn
build-server-id build-server-id
derivation-file-name))) derivation-file-name))
(latest-build-status
(assoc-ref (last (vector->list (second build)))
"status")))
(render-html (render-html
#:sxml #:sxml
(view-build query-parameters (view-build query-parameters
build))))) build
(if (string=? latest-build-status "failed-dependency")
(select-required-builds-that-failed
conn
build-server-id
derivation-file-name)
#f))))))
(define (handle-build-event-submission parsed-query-parameters (define (handle-build-event-submission parsed-query-parameters
build-server-id-string build-server-id-string

25
guix-data-service/web/build-server/html.scm
View file

@ -23,7 +23,8 @@
view-signing-key)) view-signing-key))
(define (view-build query-parameters (define (view-build query-parameters
build) build
required-failed-builds)
(define derivation (define derivation
(assq-ref query-parameters 'derivation_file_name)) (assq-ref query-parameters 'derivation_file_name))
@ -65,7 +66,27 @@
(td ,(assoc-ref status "timestamp")) (td ,(assoc-ref status "timestamp"))
(td ,(build-status-span (td ,(build-status-span
(assoc-ref status "status"))))) (assoc-ref status "status")))))
(vector->list statuses))))))))))))) (vector->list statuses)))))))))
,@(if required-failed-builds
`((div
(@ (class "row"))
(div
(@ (class "col-sm-6"))
(h3 "Required failed builds")
(table
(@ (class "table"))
(thead
(tr
(th "Derivation")
(th "Status")))
(tbody
,@(map (match-lambda
((derivation status)
`(tr
(td ,(display-possible-store-item derivation))
(td ,(build-status-span status)))))
required-failed-builds))))))
'())))))
(define (view-signing-key sexp) (define (view-signing-key sexp)
(layout (layout