diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-04-22 12:31:30 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-04-22 12:31:30 +0100 |
| commit | 5b4bd345b336f6042c761d3918435afcb5bc7736 (patch) | |
| tree | da5b0ef647b53b96c2b324d979172060ed5ef21f | |
| parent | 7445a0b4bf1ab1964cbe9a07581e3cd8d51d670b (diff) | |
| download | build-coordinator-5b4bd345b336f6042c761d3918435afcb5bc7736.tar build-coordinator-5b4bd345b336f6042c761d3918435afcb5bc7736.tar.gz | |
Try to avoid problems with printing the fibers scheduler
| -rw-r--r-- | scripts/guix-build-coordinator.in | 12 |
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 |