03/14: Improve logging when computing a channel instance derivation fails

[Christopher Baines]

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

commit 75f27264a609cede6c7616c18037cf6544c3666f
Author: Christopher Baines <mail@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