03/05: Set %file-port-name-canonicalization when processing jobs

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit a3ec1f326d13024ade43f2ab6e6db9b392cc31f1
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Mon Dec 4 11:06:27 2023 +0000

    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)))))