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

Make knots update changes

Browse source
This commit is contained in:
Christopher Baines 2025-02-11 10:31:21 +00:00
parent 522c7cd9a2
commit c3e42e93a5
1 changed files with 1 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2304,9 +2304,7 @@ SELECT 1 FROM derivation_source_file_nars WHERE derivation_source_file_id = $1"
ignore-systems ignore-targets) ignore-systems ignore-targets)
(define call-with-utility-thread (define call-with-utility-thread
(let* ((thread-pool (let* ((thread-pool
(call-with-default-io-waiters (make-thread-pool parallelism))
(lambda ()
(make-thread-pool parallelism))))
(queued-channel (queued-channel
;; There might be high demand for this, so order the requests ;; There might be high demand for this, so order the requests
(spawn-queueing-fiber (spawn-queueing-fiber
@ -2839,8 +2837,6 @@ SKIP LOCKED")
;; instances have the data updated. ;; instances have the data updated.
(fix-derivation-output-details-hash-encoding conn) (fix-derivation-output-details-hash-encoding conn)
(%thread-pool-default-timeout #f)
(add-hook! after-gc-hook (add-hook! after-gc-hook
(lambda () (lambda ()
(simple-format (current-error-port) (simple-format (current-error-port)