From a95c5ca5c927abb98655f89901ef8732b0fb75ee Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Thu, 27 Feb 2020 21:14:58 +0000
Subject: [PATCH] Improve the error reporting within
 process-load-new-guix-revision-job

By including a backtrace.
---
 .../jobs/load-new-guix-revision.scm              | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm
index bd331ab..8c154eb 100644
--- a/guix-data-service/jobs/load-new-guix-revision.scm
+++ b/guix-data-service/jobs/load-new-guix-revision.scm
@@ -1589,20 +1589,20 @@ SKIP LOCKED")
                 (setup-logging
                  id
                  (lambda ()
-                   (catch #t
+                   (with-exception-handler
+                       (lambda (exn)
+                         (simple-format (current-error-port)
+                                        "error: load-new-guix-revision: ~A\n"
+                                        exn)
+                         (backtrace)
+                         #f)
                      (lambda ()
                        (with-store-connection
                         (lambda (store)
                           (load-new-guix-revision conn
                                                   store
                                                   git-repository-id
-                                                  commit))))
-                     (lambda (key . args)
-                       (simple-format
-                        (current-error-port)
-                        "error: load-new-guix-revision: ~A ~A\n"
-                        key args)
-                       #f)))))
+                                                  commit))))))))
               #t))
             (begin
               (record-job-succeeded conn id)