From c66399ee4d10e6d9f7d086ffd1615c6de60320e7 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 14 May 2023 21:11:30 +0100 Subject: Add more information to job raised exception logs --- guix-build-coordinator/utils.scm | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) (limited to 'guix-build-coordinator/utils.scm') 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)) -- cgit v1.2.3