mirror of
git://git.savannah.gnu.org/guix/data-service.git
synced 2023-12-14 03:23:03 +01:00
Better handle errors when fetching builds by output
This commit is contained in:
parent
119fd801e1
commit
cc370fae56
1 changed files with 35 additions and 20 deletions
|
@ -232,6 +232,8 @@ initial connection on which HTTP requests are sent."
|
||||||
derivation-output-paths-and-details-sets-ids)
|
derivation-output-paths-and-details-sets-ids)
|
||||||
(lambda (data output)
|
(lambda (data output)
|
||||||
(if data
|
(if data
|
||||||
|
(catch #t
|
||||||
|
(lambda ()
|
||||||
(let* ((derivation
|
(let* ((derivation
|
||||||
(assoc-ref data "derivation"))
|
(assoc-ref data "derivation"))
|
||||||
(build-id
|
(build-id
|
||||||
|
@ -251,7 +253,20 @@ initial connection on which HTTP requests are sent."
|
||||||
(if (verbose-output?)
|
(if (verbose-output?)
|
||||||
(simple-format #t "found build for: ~A (~A)\n"
|
(simple-format #t "found build for: ~A (~A)\n"
|
||||||
output derivation)
|
output derivation)
|
||||||
(display "-")))
|
(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?)
|
(if (verbose-output?)
|
||||||
(simple-format #t "no build found: ~A\n" output)
|
(simple-format #t "no build found: ~A\n" output)
|
||||||
(display "."))))))
|
(display "."))))))
|
||||||
|
|
Loading…
Reference in a new issue