diff options
author | Christopher Baines <mail@cbaines.net> | 2020-02-15 21:33:47 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-02-15 21:33:47 +0000 |
commit | a2387c12d87d3f1f8723fe9c8b54f848e32e16ad (patch) | |
tree | 1962c4bf5c21b870ac93c800b9fdc5b2ee9917ee | |
parent | 2c495fe8f642a7ffe36bdebd68559396f3a9accc (diff) | |
download | data-service-a2387c12d87d3f1f8723fe9c8b54f848e32e16ad.tar data-service-a2387c12d87d3f1f8723fe9c8b54f848e32e16ad.tar.gz |
Improve error handling in the query-build-servers script
-rw-r--r-- | guix-data-service/builds.scm | 9 |
1 files changed, 8 insertions, 1 deletions
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) |