diff options
Diffstat (limited to 'guix-data-service/builds.scm')
-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) |