From e4af682452580298b34681d37818a16771a17c66 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 13 Dec 2023 12:37:24 +0000 Subject: Add some port timeouts in to the build-success-publish-hook --- guix-build-coordinator/hooks.scm | 12 +++++++----- 1 file 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)) -- cgit v1.2.3