guix
/
data-service
mirror of git://git.savannah.gnu.org/guix/data-service.git
2
0
Fork 0
Code Issues Releases Wiki Activity

Set %file-port-name-canonicalization when processing jobs 

Just in case this helps with performance.
This commit is contained in:
Christopher Baines 2023-12-04 11:06:27 +00:00
parent b9026488ed
commit a3ec1f326d
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
scripts/guix-data-service-process-job.in
View File

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