From 04e90a17b06e718a5e1440c7affe8dcff9de5d90 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Fri, 9 Jun 2023 16:04:58 +0100
Subject: Better report exceptions in query-build-server-substitutes

---
 guix-data-service/substitutes.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/guix-data-service/substitutes.scm b/guix-data-service/substitutes.scm
index 335d3f3..24b141d 100644
--- a/guix-data-service/substitutes.scm
+++ b/guix-data-service/substitutes.scm
@@ -53,7 +53,7 @@
                     (member id build-server-ids))
             (when lookup-all-derivations?
               (simple-format #t "\nQuerying ~A\n" url)
-              (catch #t
+              (with-throw-handler #t
                 (lambda ()
                   (fetch-narinfo-files conn id url revision-commits
                                        #:specific-outputs
@@ -62,7 +62,8 @@
                   (simple-format
                    (current-error-port)
                    "exception in query-build-server: ~A ~A\n"
-                   key args)))))))
+                   key args)
+                  (backtrace)))))))
        build-servers))))
 
 (define %narinfo-max-size
-- 
cgit v1.2.3