diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-11-30 10:29:07 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-11-30 10:29:07 +0000 |
| commit | d39997008751b5f8f5c2fc6fae42e44642fe6de5 (patch) | |
| tree | 7ed1f978971cd1e8a9ae88d615967a7aa76df654 | |
| parent | a9a3dcc9563d8388a9c7ebeeb990069b0371154d (diff) | |
| download | build-coordinator-d39997008751b5f8f5c2fc6fae42e44642fe6de5.tar build-coordinator-d39997008751b5f8f5c2fc6fae42e44642fe6de5.tar.gz | |
Extend %file-port-name-canonicalization to hook threads
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 5b0a2aa..5353fab 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -449,13 +449,13 @@ (client-communication-uri %default-client-uri) secret-key-base (parallel-hooks '())) - (perform-coordinator-service-startup - build-coordinator - #:update-datastore? update-datastore? - #:pid-file pid-file - #:parallel-hooks parallel-hooks) - (with-fluids ((%file-port-name-canonicalization 'none)) + (perform-coordinator-service-startup + build-coordinator + #:update-datastore? update-datastore? + #:pid-file pid-file + #:parallel-hooks parallel-hooks) + ;; Create some worker thread channels, which need to be created prior ;; to run-fibers being called. (let ((chunked-request-channel |