cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Better report exceptions in query-build-server-substitutes

Browse source
This commit is contained in:
Christopher Baines 2023-06-09 16:04:58 +01:00
parent 29d49ba31a
commit 04e90a17b0
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
guix-data-service/substitutes.scm
View file

@ -53,7 +53,7 @@
(member id build-server-ids)) (member id build-server-ids))
(when lookup-all-derivations? (when lookup-all-derivations?
(simple-format #t "\nQuerying ~A\n" url) (simple-format #t "\nQuerying ~A\n" url)
(catch #t (with-throw-handler #t
(lambda () (lambda ()
(fetch-narinfo-files conn id url revision-commits (fetch-narinfo-files conn id url revision-commits
#:specific-outputs #:specific-outputs
@ -62,7 +62,8 @@
(simple-format (simple-format
(current-error-port) (current-error-port)
"exception in query-build-server: ~A ~A\n" "exception in query-build-server: ~A ~A\n"
key args))))))) key args)
(backtrace)))))))
build-servers)))) build-servers))))
(define %narinfo-max-size (define %narinfo-max-size