aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-04-22 12:31:30 +0100
committerChristopher Baines <mail@cbaines.net>2023-04-22 12:31:30 +0100
commit5b4bd345b336f6042c761d3918435afcb5bc7736 (patch)
treeda5b0ef647b53b96c2b324d979172060ed5ef21f
parent7445a0b4bf1ab1964cbe9a07581e3cd8d51d670b (diff)
downloadbuild-coordinator-5b4bd345b336f6042c761d3918435afcb5bc7736.tar
build-coordinator-5b4bd345b336f6042c761d3918435afcb5bc7736.tar.gz
Try to avoid problems with printing the fibers scheduler
-rw-r--r--scripts/guix-build-coordinator.in12
1 files changed, 12 insertions, 0 deletions
diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in
index d2f2c8a..8199896 100644
--- a/scripts/guix-build-coordinator.in
+++ b/scripts/guix-build-coordinator.in
@@ -33,12 +33,15 @@
256))))
(use-modules (srfi srfi-1)
+ (srfi srfi-9 gnu)
(srfi srfi-19)
(srfi srfi-37)
(srfi srfi-43)
(ice-9 match)
+ (ice-9 suspendable-ports)
(web uri)
(fibers)
+ (fibers scheduler)
(fibers conditions)
(prometheus)
((guix ui) #:select (read/eval))
@@ -52,6 +55,15 @@
(guix-build-coordinator build-allocator)
(guix-build-coordinator client-communication))
+(install-suspendable-ports!)
+
+;; TODO Work around this causing problems with backtraces
+;; https://github.com/wingo/fibers/issues/76
+(set-record-type-printer!
+ (@@ (fibers scheduler) <scheduler>)
+ (lambda (scheduler port)
+ (display "#<scheduler>" port)))
+
(define %base-options
;; Specifications of the command-line options
(list (option '("secret-key-base-file") #t #f