diff options
Diffstat (limited to 'guix-data-service/builds.scm')
| -rw-r--r-- | guix-data-service/builds.scm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/guix-data-service/builds.scm b/guix-data-service/builds.scm index b54d7b8..e347789 100644 --- a/guix-data-service/builds.scm +++ b/guix-data-service/builds.scm @@ -143,7 +143,16 @@ initial connection on which HTTP requests are sent." (simple-format #t "\nQuerying ~A\n" url) (catch #t (lambda () - (query-build-server conn id url revision-commits outputs)) + (with-exception-handler + (lambda (exn) + (backtrace) + (raise-exception exn)) + (lambda () + (query-build-server conn + id + url + revision-commits + outputs)))) (lambda (key . args) (simple-format (current-error-port) |