diff options
-rw-r--r-- | scripts/guix-build-coordinator.in | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index da22c1f..c7fbb1a 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -131,12 +131,12 @@ (option '("agent-communication") #t #f (lambda (opt name arg result) (alist-cons 'agent-communication - arg + (string->uri arg) (alist-delete 'agent-communication result)))) (option '("client-communication") #t #f (lambda (opt name arg result) (alist-cons 'client-communication - arg + (string->uri arg) (alist-delete 'client-communication result)))) (option '("allocation-strategy") #t #f (lambda (opt name arg result) @@ -469,7 +469,7 @@ processed?: ~A (let* ((agent-communication-thunk (let ((agent-communication-uri - (string->uri (assq-ref opts 'agent-communication)))) + (assq-ref opts 'agent-communication))) (match (uri-scheme agent-communication-uri) ('http (let ((host (uri-host agent-communication-uri)) @@ -490,7 +490,7 @@ processed?: ~A chunked-request-channel))))))) (client-communication-thunk (let ((client-communication-uri - (string->uri (assq-ref opts 'client-communication))) + (assq-ref opts 'client-communication)) (substitutes-channel (make-worker-thread-channel (const '()) #:parallelism 2))) |