From d24e2fdc34bdd256ddc7eba923eb6cbdee040254 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Mon, 10 Apr 2023 08:14:52 +0100
Subject: Use a timeout when substituting derivations in the publish hook

As this can block if the store GC is running.
---
 guix-build-coordinator/hooks.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/guix-build-coordinator/hooks.scm b/guix-build-coordinator/hooks.scm
index db44db6..6ba0c20 100644
--- a/guix-build-coordinator/hooks.scm
+++ b/guix-build-coordinator/hooks.scm
@@ -104,6 +104,9 @@
     (define (process-referenced-derivation-source-files drv-name)
       (with-store store
         (unless (valid-path? store drv-name)
+          (set-store-connection-timeout store)
+
+          ;; TODO This isn't ideal as it can be blocked by GC
           (substitute-derivation drv-name
                                  #:substitute-urls
                                  derivation-substitute-urls))
-- 
cgit v1.2.3