cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update Guile Knots

Browse source
This commit is contained in:
Christopher Baines 2025-05-25 11:38:58 +01:00
parent 5717ce82ce
commit 3c6ad21285
2 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
guix-data-service/jobs/load-new-guix-revision.scm
View file

@ -2515,11 +2515,11 @@ SELECT store_path FROM derivation_source_files WHERE id = $1"
ignore-systems ignore-targets)
(define call-with-utility-thread
(let* ((thread-pool
(make-thread-pool parallelism))
(make-fixed-size-thread-pool parallelism))
(queued-channel
;; There might be high demand for this, so order the requests
(spawn-queueing-fiber
(thread-pool-channel thread-pool))))
(fixed-size-thread-pool-channel thread-pool))))
(lambda (thunk)
(call-with-thread
thread-pool