Set %file-port-name-canonicalization when processing jobs
Just in case this helps with performance.
This commit is contained in:
parent
b9026488ed
commit
a3ec1f326d
|
@ -73,11 +73,12 @@
|
||||||
(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)
|
||||||
(run-fibers
|
(with-fluids ((%file-port-name-canonicalization 'none))
|
||||||
(lambda ()
|
(run-fibers
|
||||||
(process-load-new-guix-revision-job
|
(lambda ()
|
||||||
job
|
(process-load-new-guix-revision-job
|
||||||
#:skip-system-tests? (assq-ref opts 'skip-system-tests)))
|
job
|
||||||
#:hz 0
|
#:skip-system-tests? (assq-ref opts 'skip-system-tests)))
|
||||||
#:parallelism (assq-ref opts 'parallelism)
|
#:hz 0
|
||||||
#:drain? #t))))
|
#:parallelism (assq-ref opts 'parallelism)
|
||||||
|
#:drain? #t)))))
|
||||||
|
|
Loading…
Reference in New Issue