From badea855360a137ab127f36af29aef1c3b3feeb1 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Mon, 1 Jun 2020 20:17:59 +0100
Subject: Add in some extra information about worker thread exceptions

---
 guix-build-coordinator/utils.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm
index 8d9e9f4..e72cf94 100644
--- a/guix-build-coordinator/utils.scm
+++ b/guix-build-coordinator/utils.scm
@@ -84,6 +84,9 @@ arguments of the worker thread procedure."
                           (with-exception-handler
                               (lambda (exn)
                                 (backtrace)
+                                (simple-format
+                                 (current-error-port)
+                                 "worker-thread: exception: ~A\n" exn)
                                 (raise-exception exn))
                             (lambda ()
                               (apply proc args))))
-- 
cgit v1.2.3