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

Better handle errors when fetching builds by output

Browse source
This commit is contained in:
Christopher Baines 2020-02-15 21:58:07 +00:00
parent 119fd801e1
commit cc370fae56
1 changed files with 35 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -232,26 +232,41 @@ initial connection on which HTTP requests are sent."
derivation-output-paths-and-details-sets-ids)
(lambda (data output)
(if data
(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 "-")))
(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 "-"))))
(lambda (key . args)
(simple-format
(current-error-port)
"\nerror processing data for output: ~A\n"
output)
(simple-format (current-error-port)
"~A\n"
data)
(simple-format
(current-error-port)
"~A: ~A\n"
key
args)))
(if (verbose-output?)
(simple-format #t "no build found: ~A\n" output)
(display "."))))))