cbaines pushed a commit to branch master
in repository data-service.
commit 75f27264a609cede6c7616c18037cf6544c3666f
Author: Christopher Baines <m...@cbaines.net>
AuthorDate: Sat Jan 27 18:41:02 2024 +0000
Improve logging when computing a channel instance derivation fails
---
guix-data-service/jobs/load-new-guix-revision.scm | 17 ++++++++++++-----
1 file changed, 12 insertions(+), 5 deletions(-)
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm
b/guix-data-service/jobs/load-new-guix-revision.scm
index 46f80ab..464a5d7 100644
--- a/guix-data-service/jobs/load-new-guix-revision.scm
+++ b/guix-data-service/jobs/load-new-guix-revision.scm
@@ -1159,11 +1159,18 @@
(with-resource-from-pool inferior-and-store-pool res
(match res
((inferior . inferior-store)
- (cons system
- (inferior-eval-with-store/non-blocking
- inferior
- inferior-store
- (inferior-code channel-instance system)))))))
+ (with-throw-handler #t
+ (lambda ()
+ (cons system
+ (inferior-eval-with-store/non-blocking
+ inferior
+ inferior-store
+ (inferior-code channel-instance system))))
+ (lambda _
+ (simple-format
+ (current-error-port)
+ "failed to compute channel instance derivation for ~A\n"
+ system)))))))
systems)))
(cons
