diff options
author | Christopher Baines <mail@cbaines.net> | 2023-05-14 12:15:17 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-05-14 12:15:17 +0100 |
commit | 29334e191785bcef422e22887e0a68de0153ee32 (patch) | |
tree | e38da3d6caaeb83977315f3ff1b4584c7599abdc /guix-build-coordinator/agent-messaging/http/server.scm | |
parent | b01c959ade8c08867c2a6ed162ccb3edcda676ac (diff) | |
download | build-coordinator-29334e191785bcef422e22887e0a68de0153ee32.tar build-coordinator-29334e191785bcef422e22887e0a68de0153ee32.tar.gz |
Guard against logging failures in the output hash thread
Diffstat (limited to 'guix-build-coordinator/agent-messaging/http/server.scm')
-rw-r--r-- | guix-build-coordinator/agent-messaging/http/server.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/guix-build-coordinator/agent-messaging/http/server.scm b/guix-build-coordinator/agent-messaging/http/server.scm index 7efeec8..5e8467f 100644 --- a/guix-build-coordinator/agent-messaging/http/server.scm +++ b/guix-build-coordinator/agent-messaging/http/server.scm @@ -382,7 +382,12 @@ port. Also, the port used can be changed by passing the --port option.\n" (while #t (with-exception-handler (lambda (exn) - (log-msg logger 'ERROR "exception in output hash thread: " exn)) + (with-exception-handler + ;; Don't stop the thread, even if the logging fails + (const #t) + (lambda () + (log-msg logger 'ERROR "exception in output hash thread: " exn)) + #:unwind? #t)) (lambda () (display-info) |