diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-10-13 19:35:45 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-10-13 19:35:45 +0100 |
| commit | 83f68a8afae6b3f06bceec57aeb3e1649eff004b (patch) | |
| tree | 433e6e69e64682902dca2581a80b5e1dbe6ad430 | |
| parent | e273e220420f7f0351824fefb32d0c6c423e5dc3 (diff) | |
| download | data-service-83f68a8afae6b3f06bceec57aeb3e1649eff004b.tar data-service-83f68a8afae6b3f06bceec57aeb3e1649eff004b.tar.gz | |
Display backtraces when exceptions occur for fetching builds
| -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) |