From a3ec1f326d13024ade43f2ab6e6db9b392cc31f1 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 4 Dec 2023 11:06:27 +0000 Subject: Set %file-port-name-canonicalization when processing jobs Just in case this helps with performance. --- scripts/guix-data-service-process-job.in | 17 +++++++++-------- 1 file 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))))) -- cgit v1.2.3