diff options
| -rw-r--r-- | guix-build-coordinator/hooks.scm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/guix-build-coordinator/hooks.scm b/guix-build-coordinator/hooks.scm index a98f318..bf4b576 100644 --- a/guix-build-coordinator/hooks.scm +++ b/guix-build-coordinator/hooks.scm @@ -132,13 +132,15 @@ (if (null? potential-referenced-source-files) '() - (with-store store + (with-store/non-blocking store (unless (valid-path? store drv-name) ;; TODO This isn't ideal as it can be blocked by GC - (substitute-derivation store - drv-name - #:substitute-urls - derivation-substitute-urls) + (with-port-timeouts + (lambda () + (substitute-derivation store + drv-name + #:substitute-urls + derivation-substitute-urls))) (add-temp-root store drv-name)) (let* ((drv (read-derivation-from-file* drv-name)) |