diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-04-28 17:06:06 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-04-28 17:06:06 +0100 |
| commit | 8d9d5a907dc0cf35cec41230035e962ebf5f2351 (patch) | |
| tree | b2e2675f3468c46f9a8740002e3f1985d2633c76 /guix-build-coordinator | |
| parent | dcca57a292b4361f1b83e242ec52b23204d01261 (diff) | |
| download | build-coordinator-8d9d5a907dc0cf35cec41230035e962ebf5f2351.tar build-coordinator-8d9d5a907dc0cf35cec41230035e962ebf5f2351.tar.gz | |
Use port timeouts when substituting derivations
Diffstat (limited to 'guix-build-coordinator')
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 9958fd1..b75b40f 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -622,9 +622,12 @@ (derivation (if derivation-exists-in-database? #f ; unnecessary to fetch derivation - (call-with-delay-logging read-drv - #:threshold 10 - #:args (list derivation-file)))) + (with-fibers-port-timeouts + (lambda () + (call-with-delay-logging read-drv + #:threshold 10 + #:args (list derivation-file))) + #:timeout 30))) (system (or system-from-database @@ -743,9 +746,12 @@ (unless (datastore-find-derivation datastore derivation-file) (datastore-store-derivation datastore - (call-with-delay-logging read-drv - #:threshold 10 - #:args (list derivation-file)))) + (with-fibers-port-timeouts + (lambda () + (call-with-delay-logging read-drv + #:threshold 10 + #:args (list derivation-file))) + #:timeout 30))) (let ((related-derivations-lacking-builds (if ensure-all-related-derivation-outputs-have-builds? |