aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2024-05-15 18:22:32 +0100
committerChristopher Baines <mail@cbaines.net>2024-05-15 18:22:32 +0100
commit1d6fc7b75163e564ff2708662e9d6e75d899b379 (patch)
treee46754cd60f5addb1b2e70fb6af520737b174b41
parente0931d0319606f8386849418f15187251e89fd25 (diff)
downloadbuild-coordinator-1d6fc7b75163e564ff2708662e9d6e75d899b379.tar
build-coordinator-1d6fc7b75163e564ff2708662e9d6e75d899b379.tar.gz
Work around the broken with-store/non-blocking
-rw-r--r--guix-build-coordinator/coordinator.scm6
1 files changed, 6 insertions, 0 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm
index e859f8a..091c821 100644
--- a/guix-build-coordinator/coordinator.scm
+++ b/guix-build-coordinator/coordinator.scm
@@ -50,6 +50,7 @@
#:use-module (prometheus)
#:use-module ((guix build syscalls)
#:select (set-thread-name))
+ #:use-module (guix store)
#:use-module (guix derivations)
#:use-module (guix build utils)
#:use-module (guix-build-coordinator utils)
@@ -423,6 +424,11 @@
;; The logger assumes this
(set-port-encoding! (current-output-port) "UTF-8")
+ ;; Work around my broken with-store/non-blocking in Guix
+ (let ((socket-file (%daemon-socket-uri)))
+ (%daemon-socket-uri
+ (string-append "file://" socket-file)))
+
(with-exception-handler
(lambda (exn)
(simple-format #t "failed enabling core dumps: ~A\n" exn))