Display backtraces when exceptions occur for fetching builds

2020-10-13 19:35:45 +01:00 · 2020-10-13 19:35:45 +01:00 · 83f68a8afa
commit 83f68a8afa
parent e273e22042
1 changed files with 10 additions and 1 deletions
--- 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)