diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-05-10 19:51:15 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-05-10 19:51:15 +0100 |
| commit | 3620e1bea9ab158c34bdc790417ba7aa1946df63 (patch) | |
| tree | 6249809534fdd11e01c7942d0a030bba9302d1f7 | |
| parent | 53dddfa62c281ac428325a9d642093979dce77d2 (diff) | |
| download | build-coordinator-3620e1bea9ab158c34bdc790417ba7aa1946df63.tar build-coordinator-3620e1bea9ab158c34bdc790417ba7aa1946df63.tar.gz | |
Show backtraces for exceptions when substituting derivations
| -rw-r--r-- | guix-build-coordinator/client-communication.scm | 6 |
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 |