From 83f68a8afae6b3f06bceec57aeb3e1649eff004b Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Tue, 13 Oct 2020 19:35:45 +0100
Subject: 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)
-- 
cgit v1.2.3