From a2f09295bc4944c788bac01b9f2adafa8bf866c7 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Fri, 19 Jun 2020 10:27:28 +0100
Subject: Add a timeout when fetching build inputs

As this seems like it can hang.
---
 guix-build-coordinator/agent.scm | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm
index 84be0ca..06518ed 100644
--- a/guix-build-coordinator/agent.scm
+++ b/guix-build-coordinator/agent.scm
@@ -153,13 +153,17 @@
               (begin
                 (retry-on-error
                  (lambda ()
-                   ;; Download the substitutes
-                   (with-store store
-                               (set-build-options store
-                                                  #:substitute-urls
-                                                  non-derivation-substitute-urls)
+                   (with-timeout (* 1000 60 10) ; 10 minutes
+                     (raise-exception
+                      (make-exception-with-message "timeout fetching inputs"))
+                     (begin
+                       ;; Download the substitutes
+                       (with-store store
+                         (set-build-options store
+                                            #:substitute-urls
+                                            non-derivation-substitute-urls)
 
-                               (build-things store missing-paths)))
+                         (build-things store missing-paths)))))
                  #:times 6
                  #:delay 60)
 
-- 
cgit v1.2.3