diff options
author | Christopher Baines <mail@cbaines.net> | 2020-09-16 20:21:47 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-09-16 21:00:08 +0100 |
commit | 2ef1ccdc252eaf6fca949aa36f8eb6b5fd4862e6 (patch) | |
tree | 2e9ac79d1fec83b1d8eb5b6b6a65fb0be664c185 | |
parent | b624ad8b342ac9a1454765d0e0c4f99c34b57e30 (diff) | |
download | build-coordinator-2ef1ccdc252eaf6fca949aa36f8eb6b5fd4862e6.tar build-coordinator-2ef1ccdc252eaf6fca949aa36f8eb6b5fd4862e6.tar.gz |
Handle string->uri conversion when parsing 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))) |