diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-12-27 22:17:09 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-01-13 09:32:38 +0000 |
| commit | 1d5ac358b03a4fe577cef5928958aa1bcc2e6010 (patch) | |
| tree | d697d49b16340d53c33c25c596ce757bb63235b9 /guix-build-coordinator/coordinator.scm | |
| parent | 037eac0357baa448afe6aeeaf82d8f2e2665bbcb (diff) | |
| download | build-coordinator-1d5ac358b03a4fe577cef5928958aa1bcc2e6010.tar build-coordinator-1d5ac358b03a4fe577cef5928958aa1bcc2e6010.tar.gz | |
Use Guile Knots
Diffstat (limited to 'guix-build-coordinator/coordinator.scm')
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index a7fb664..6cc58c2 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -48,9 +48,10 @@ #:use-module (fibers channels) #:use-module (fibers scheduler) #:use-module (fibers conditions) + #:use-module (knots) + #:use-module (knots timeout) + #:use-module (knots worker-threads) #:use-module (prometheus) - #:use-module ((guix build syscalls) - #:select (set-thread-name)) #:use-module (guix store) #:use-module (guix derivations) #:use-module (guix build utils) @@ -501,8 +502,8 @@ (make-output-hash-channel build-coordinator)) - (utility-thread-pool-channel - (make-worker-thread-channel + (utility-thread-pool + (make-worker-thread-set (const '()) #:name "utility" #:parallelism 10 @@ -591,7 +592,7 @@ (uri-host client-communication-uri) (uri-port client-communication-uri) build-coordinator - utility-thread-pool-channel) + utility-thread-pool) ;; Guile seems to just stop listening on ports, so try to ;; monitor that internally and just quit if it happens @@ -650,7 +651,7 @@ derivation-file))) (if (eq? #f system) ; derivation does not exist in database? (build-for-output-already-exists/with-derivation? - (with-fibers-port-timeouts + (with-port-timeouts (lambda () (call-with-delay-logging read-drv #:threshold 10 @@ -780,7 +781,7 @@ ;; derivations with no builds works (if (datastore-find-derivation datastore derivation-file) #f - (with-fibers-port-timeouts + (with-port-timeouts (lambda () (call-with-delay-logging read-drv #:threshold 10 |