guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

Guard against build being missing from the output response

Browse source
This commit is contained in:
Christopher Baines 2020-02-16 09:06:12 +00:00
parent cc370fae56
commit 6f97cec962
1 changed files with 22 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
guix-data-service/builds.scm
View file

@ -234,26 +234,28 @@ initial connection on which HTTP requests are sent."
(if data
(catch #t
(lambda ()
(let* ((derivation
(assoc-ref data "derivation"))
(build-id
(ensure-build-exists
conn
build-server-id
derivation
#:derivation-output-details-set-id
(cdr
(vhash-assoc output
derivation-output-paths-and-details-sets-ids)))))
(insert-build-statuses-from-data
conn
build-server-id
build-id
(assoc-ref data "build"))
(if (verbose-output?)
(simple-format #t "found build for: ~A (~A)\n"
output derivation)
(display "-"))))
(when (assoc-ref data "build")
;; The build can be #f
(let* ((derivation
(assoc-ref data "derivation"))
(build-id
(ensure-build-exists
conn
build-server-id
derivation
#:derivation-output-details-set-id
(cdr
(vhash-assoc output
derivation-output-paths-and-details-sets-ids)))))
(insert-build-statuses-from-data
conn
build-server-id
build-id
(assoc-ref data "build"))
(if (verbose-output?)
(simple-format #t "found build for: ~A (~A)\n"
output derivation)
(display "-")))))
(lambda (key . args)
(simple-format
(current-error-port)