diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 84d549e..2e46036 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -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 diff --git a/guix-dev.scm b/guix-dev.scm index a1e9d6f..b468015 100644 --- a/guix-dev.scm +++ b/guix-dev.scm @@ -42,7 +42,7 @@ (srfi srfi-1)) (define guile-knots - (let ((commit "1dca6d755e910b67636b791242f0948356cf8c4d") + (let ((commit "016f37f108ca19da3664516baa97e907aa972b90") (revision "1")) (package (name "guile-knots") @@ -54,7 +54,7 @@ (commit commit))) (sha256 (base32 - "1ycczphiqqz39fm7cfga5q0aklny22a014y1v0b4jsq6jc00wydk")) + "12j3l9p4acf47cjpfzm41ddxyxs1v6vlfa2vrymdd4gdday62xfn")) (file-name (string-append name "-" version "-checkout")))) (build-system gnu-build-system) (native-inputs @@ -63,11 +63,11 @@ automake guile-next guile-lib - guile-fibers)) + guile-fibers-next)) (inputs - (list guile-3.0)) + (list guile-next)) (propagated-inputs - (list guile-fibers)) + (list guile-fibers-next)) (home-page "https://git.cbaines.net/guile/knots") (synopsis "Patterns and functionality to use with Guile Fibers") (description