aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-11-30 10:29:07 +0000
committerChristopher Baines <mail@cbaines.net>2023-11-30 10:29:07 +0000
commitd39997008751b5f8f5c2fc6fae42e44642fe6de5 (patch)
tree7ed1f978971cd1e8a9ae88d615967a7aa76df654 /guix-build-coordinator
parenta9a3dcc9563d8388a9c7ebeeb990069b0371154d (diff)
downloadbuild-coordinator-d39997008751b5f8f5c2fc6fae42e44642fe6de5.tar
build-coordinator-d39997008751b5f8f5c2fc6fae42e44642fe6de5.tar.gz
Extend %file-port-name-canonicalization to hook threads
Diffstat (limited to 'guix-build-coordinator')
-rw-r--r--guix-build-coordinator/coordinator.scm12
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