aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix-build-coordinator/client-communication.scm6
1 files changed, 5 insertions, 1 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm
index c0118aa..b3d8e55 100644
--- a/guix-build-coordinator/client-communication.scm
+++ b/guix-build-coordinator/client-communication.scm
@@ -491,7 +491,11 @@
derivation-file
substitute-urls)))
(lambda ()
- (read-drv/substitute derivation-file))
+ (with-throw-handler #t
+ (lambda ()
+ (read-drv/substitute derivation-file))
+ (lambda args
+ (backtrace))))
#:unwind? #t))
,@(let ((priority (assoc-ref body "priority")))
(if priority