diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-12-04 11:06:27 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-12-04 11:06:27 +0000 |
| commit | a3ec1f326d13024ade43f2ab6e6db9b392cc31f1 (patch) | |
| tree | 63746d67d0935d10ad79d29d4b543b6164b87f4c | |
| parent | b9026488ed53e76c5b8ff741a76e6b8c57256d4a (diff) | |
| download | data-service-a3ec1f326d13024ade43f2ab6e6db9b392cc31f1.tar data-service-a3ec1f326d13024ade43f2ab6e6db9b392cc31f1.tar.gz | |
Set %file-port-name-canonicalization when processing jobs
Just in case this helps with performance.
| -rw-r--r-- | scripts/guix-data-service-process-job.in | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/scripts/guix-data-service-process-job.in b/scripts/guix-data-service-process-job.in index 89e31b9..fd7ab3f 100644 --- a/scripts/guix-data-service-process-job.in +++ b/scripts/guix-data-service-process-job.in @@ -73,11 +73,12 @@ (let ((opts (parse-options (cdr (program-arguments))))) (match (assq-ref opts 'arguments) ((job) - (run-fibers - (lambda () - (process-load-new-guix-revision-job - job - #:skip-system-tests? (assq-ref opts 'skip-system-tests))) - #:hz 0 - #:parallelism (assq-ref opts 'parallelism) - #:drain? #t)))) + (with-fluids ((%file-port-name-canonicalization 'none)) + (run-fibers + (lambda () + (process-load-new-guix-revision-job + job + #:skip-system-tests? (assq-ref opts 'skip-system-tests))) + #:hz 0 + #:parallelism (assq-ref opts 'parallelism) + #:drain? #t))))) |