aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2020-06-01 20:17:59 +0100
committerChristopher Baines <mail@cbaines.net>2020-06-01 20:17:59 +0100
commitbadea855360a137ab127f36af29aef1c3b3feeb1 (patch)
tree0c513763208606e3aff7a0198a079a12c1768b07
parent91882e6de6d24514751c7d1020444da4217e97d9 (diff)
downloadbuild-coordinator-badea855360a137ab127f36af29aef1c3b3feeb1.tar
build-coordinator-badea855360a137ab127f36af29aef1c3b3feeb1.tar.gz
Add in some extra information about worker thread exceptions
-rw-r--r--guix-build-coordinator/utils.scm3
1 files changed, 3 insertions, 0 deletions
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))))