diff options
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 5d4316a..05f1fd2 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -996,6 +996,10 @@ (define (process-event id event arguments handler) (with-exception-handler (lambda (exn) + (log-msg + (build-coordinator-logger build-coordinator) + 'ERROR + "process-event " event " (" id ") exception: " exn) (metric-increment failure-counter-metric #:label-values `((event . ,event))) @@ -1016,7 +1020,7 @@ (lambda args (apply log-msg (build-coordinator-logger build-coordinator) 'ERROR - "error running " event " hook: " + "error running " event " (" id ") hook: " args) (backtrace))) (log-msg (build-coordinator-logger build-coordinator) |