diff options
| -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 |