From a2387c12d87d3f1f8723fe9c8b54f848e32e16ad Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 15 Feb 2020 21:33:47 +0000 Subject: [PATCH] Improve error handling in the query-build-servers script --- guix-data-service/builds.scm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/guix-data-service/builds.scm b/guix-data-service/builds.scm index a1968c2..d65b1e8 100644 --- a/guix-data-service/builds.scm +++ b/guix-data-service/builds.scm @@ -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)