diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-06-09 16:04:58 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-06-09 16:11:06 +0100 |
| commit | 04e90a17b06e718a5e1440c7affe8dcff9de5d90 (patch) | |
| tree | d3f289af96ad500d3b9ddd842f6c7f5331640187 | |
| parent | 29d49ba31adfe4703c96572f31b1a9c4c3227dc3 (diff) | |
| download | data-service-04e90a17b06e718a5e1440c7affe8dcff9de5d90.tar data-service-04e90a17b06e718a5e1440c7affe8dcff9de5d90.tar.gz | |
Better report exceptions in query-build-server-substitutes
| -rw-r--r-- | guix-data-service/substitutes.scm | 5 |
1 files 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 |