Add more information to job raised exception logs

1 files changed, 8 insertions, 7 deletions

diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm
index 6d921c6..0e7c909 100644
--- a/guix-build-coordinator/utils.scm
+++ b/guix-build-coordinator/utils.scm
@@ -951,16 +951,17 @@ References: ~a~%"
       (with-exception-handler
           (lambda (exn)
             (simple-format (current-error-port)
-                           "job raised exception: ~A\n"
-                           job-args))
+                           "~A work queue, job raised exception: ~A\n"
+                           name job-args))
         (lambda ()
           (with-throw-handler #t
             (lambda ()
               (apply proc job-args))
             (lambda (key . args)
-              (simple-format (current-error-port)
-                             "exception when handling job: ~A ~A\n"
-                             key args)
+              (simple-format
+               (current-error-port)
+               "~A thread pool, exception when handling job: ~A ~A\n"
+               name key args)
               (backtrace))))
         #:unwind? #t))
 
@@ -1119,8 +1120,8 @@ References: ~a~%"
               (lambda ()
                 ;; Logging may raise an exception, so try and just keep going.
                 (simple-format (current-error-port)
-                               "job raised exception: ~A\n"
-                               job-args))
+                               "~A thread pool, job raised exception: ~A\n"
+                               name job-args))
               #:unwind? #t))
         (lambda ()
           (apply proc job-args))