aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator/coordinator.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-04-23 18:52:44 +0100
committerChristopher Baines <mail@cbaines.net>2023-04-23 18:52:44 +0100
commitc65312b8199c211fe26eefc6200b928c0ba3f272 (patch)
tree234711e6d57e2acb71c601605be14ec4fbc18100 /guix-build-coordinator/coordinator.scm
parente65fc96714f8d988a771ee0d5ddd6bd02aacc256 (diff)
downloadbuild-coordinator-c65312b8199c211fe26eefc6200b928c0ba3f272.tar
build-coordinator-c65312b8199c211fe26eefc6200b928c0ba3f272.tar.gz
Fix hook processing error message
And rate limit the failures even if they occur in the hook processing code.
Diffstat (limited to 'guix-build-coordinator/coordinator.scm')
-rw-r--r--guix-build-coordinator/coordinator.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm
index 055aa2d..2b51f63 100644
--- a/guix-build-coordinator/coordinator.scm
+++ b/guix-build-coordinator/coordinator.scm
@@ -1092,7 +1092,8 @@
'CRITICAL
"hook processing thread " event-name
" exception: " exn))
- #:unwind? #t))
+ #:unwind? #t)
+ (sleep 10))
(lambda ()
(with-throw-handler #t
(lambda ()
@@ -1109,7 +1110,7 @@
(log-msg
(build-coordinator-logger build-coordinator)
'CRITICAL
- "error in build allocator thread: " key " " args)
+ "error in " event-name " hook processing thread: " key " " args)
(backtrace))))
#:unwind? #t))))
condvar))