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

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
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)) (member id build-server-ids))
(when lookup-all-derivations? (when lookup-all-derivations?
(simple-format #t "\nQuerying ~A\n" url) (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))))) build-servers)))))
(define (query-build-server conn id url revision-commits) (define (query-build-server conn id url revision-commits)