05/06: Display backtraces when exceptions occur for fetching builds

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit 83f68a8afae6b3f06bceec57aeb3e1649eff004b
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Tue Oct 13 19:35:45 2020 +0100

    Display backtraces when exceptions occur for fetching builds
---
 guix-data-service/builds.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

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)