diff options
author | Christopher Baines <mail@cbaines.net> | 2020-10-11 14:19:49 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-10-11 15:15:26 +0100 |
commit | 4c613bdebe6fcc94c4907b6135c0b9bd16bcac93 (patch) | |
tree | edea7755eaf2f4f7297625297cee2f2df28e5554 /guix-build-coordinator/utils.scm | |
parent | 2f088962232b509246fc2df39b56fcb06abe7492 (diff) | |
download | build-coordinator-4c613bdebe6fcc94c4907b6135c0b9bd16bcac93.tar build-coordinator-4c613bdebe6fcc94c4907b6135c0b9bd16bcac93.tar.gz |
Show backtrace on agent exceptions
Diffstat (limited to 'guix-build-coordinator/utils.scm')
-rw-r--r-- | guix-build-coordinator/utils.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index ad0df90..937f985 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -529,7 +529,12 @@ References: ~a~%" ;; Add the job back to the queue so that it's tried again (apply process-job job-args)) (lambda () - (apply proc job-args)) + (with-exception-handler + (lambda (exn) + (backtrace) + (raise-exception exn)) + (lambda () + (apply proc job-args)))) #:unwind? #t) (with-mutex queue-mutex (set! running-jobs-count (- running-jobs-count 1))))) |