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

Improve error handling in the query-build-servers script

Browse source
This commit is contained in:
Christopher Baines 2020-02-15 21:33:47 +00:00
parent 2c495fe8f6
commit a2387c12d8
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -132,7 +132,14 @@ initial connection on which HTTP requests are sent."
(member id build-server-ids))
(when lookup-all-derivations?
(simple-format #t "\nQuerying ~A\n" url)
(query-build-server conn id url revision-commits)))))
(catch #t
(lambda ()
(query-build-server conn id url revision-commits))
(lambda (key . args)
(simple-format
(current-error-port)
"exception in query-build-server: ~A ~A\n"
key args)))))))
build-servers)))))
(define (query-build-server conn id url revision-commits)