From 2ef1ccdc252eaf6fca949aa36f8eb6b5fd4862e6 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 16 Sep 2020 20:21:47 +0100 Subject: Handle string->uri conversion when parsing options --- scripts/guix-build-coordinator.in | 8 ++++---- 1 file 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))) -- cgit v1.2.3