diff options
Diffstat (limited to 'scripts/guix-build-coordinator-agent.in')
| -rw-r--r-- | scripts/guix-build-coordinator-agent.in | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/scripts/guix-build-coordinator-agent.in b/scripts/guix-build-coordinator-agent.in index 006e1f8..6d94302 100644 --- a/scripts/guix-build-coordinator-agent.in +++ b/scripts/guix-build-coordinator-agent.in @@ -193,15 +193,16 @@ (else (error "unknown coordinator interface"))))) - (run-agent uuid - coordinator-interface - (delete-duplicates (assq-ref opts 'systems)) - (assq-ref opts 'max-parallel-builds) - (assq-ref opts 'max-allocated-builds) - (assq-ref opts 'max-parallel-uploads) - (or (assq-ref opts 'derivation-substitute-urls) - (assq-ref opts 'substitute-urls)) - (or (assq-ref opts 'non-derivation-substitute-urls) - (assq-ref opts 'substitute-urls)) - (assq-ref opts 'metrics-file) - (assq-ref opts 'max-1min-load-average)))) + (with-fluids ((%file-port-name-canonicalization 'none)) + (run-agent uuid + coordinator-interface + (delete-duplicates (assq-ref opts 'systems)) + (assq-ref opts 'max-parallel-builds) + (assq-ref opts 'max-allocated-builds) + (assq-ref opts 'max-parallel-uploads) + (or (assq-ref opts 'derivation-substitute-urls) + (assq-ref opts 'substitute-urls)) + (or (assq-ref opts 'non-derivation-substitute-urls) + (assq-ref opts 'substitute-urls)) + (assq-ref opts 'metrics-file) + (assq-ref opts 'max-1min-load-average))))) |