04/05: Better report exceptions in query-build-server-substitutes

[Christopher Baines]

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

commit 04e90a17b06e718a5e1440c7affe8dcff9de5d90
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Fri Jun 9 16:04:58 2023 +0100

    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