guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

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

Browse source 
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

3
scripts/guix-data-service-process-job.in
View file

@ -73,6 +73,7 @@
(let ((opts (parse-options (cdr (program-arguments))))) (let ((opts (parse-options (cdr (program-arguments)))))
(match (assq-ref opts 'arguments) (match (assq-ref opts 'arguments)
((job) ((job)
(with-fluids ((%file-port-name-canonicalization 'none))
(run-fibers (run-fibers
(lambda () (lambda ()
(process-load-new-guix-revision-job (process-load-new-guix-revision-job
@ -80,4 +81,4 @@
#:skip-system-tests? (assq-ref opts 'skip-system-tests))) #:skip-system-tests? (assq-ref opts 'skip-system-tests)))
#:hz 0 #:hz 0
#:parallelism (assq-ref opts 'parallelism) #:parallelism (assq-ref opts 'parallelism)
#:drain? #t)))) #:drain? #t)))))