diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-11-28 12:29:31 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-11-28 12:32:56 +0000 |
| commit | a9a3dcc9563d8388a9c7ebeeb990069b0371154d (patch) | |
| tree | 9773cc37465f40978ba728d56044a8345b7a0eb9 /scripts | |
| parent | 956c87fc02587aa6323ec6d0df1ec0bcf9977121 (diff) | |
| download | build-coordinator-a9a3dcc9563d8388a9c7ebeeb990069b0371154d.tar build-coordinator-a9a3dcc9563d8388a9c7ebeeb990069b0371154d.tar.gz | |
Set %file-port-name-canonicalization to avoid readlink syscalls
As Guix does.
Diffstat (limited to 'scripts')
| -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))))) |