diff options
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 26292dc..c66b9fe 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -549,13 +549,17 @@ (log-msg (build-coordinator-logger build-coordinator) 'DEBUG "processing " event " event: " arguments) - (call-with-duration-metric - (build-coordinator-metrics-registry build-coordinator) - "hook_duration_seconds" - (lambda () - (apply handler build-coordinator arguments)) - #:labels '(event) - #:label-values `((event . ,event))) + (with-throw-handler #t + (lambda () + (call-with-duration-metric + (build-coordinator-metrics-registry build-coordinator) + "hook_duration_seconds" + (lambda () + (apply handler build-coordinator arguments)) + #:labels '(event) + #:label-values `((event . ,event)))) + (lambda _ + (backtrace))) (log-msg (build-coordinator-logger build-coordinator) 'DEBUG event " handler finished") |