From 677d2b8821d9bbb1ab2fb1a05cddd35b3786afa3 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Thu, 25 Jun 2020 00:37:17 +0100
Subject: Add a timeout for allocations

As I think the allocation process could be hanging for some reason.
---
 guix-build-coordinator/coordinator.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm
index f76c783..9677e74 100644
--- a/guix-build-coordinator/coordinator.scm
+++ b/guix-build-coordinator/coordinator.scm
@@ -239,7 +239,10 @@
                          (force-output)))
                      (raise-exception exn))
                  (lambda ()
-                   (allocate-builds build-coordinator)
+                   (with-timeout (* 1000 60 10) ; 10 minutes
+                     (raise-exception
+                      (make-exception-with-message "timeout allocating builds"))
+                     (allocate-builds build-coordinator))
                    (metric-increment success-counter-metric))))
              #:unwind? #t))))))
 
-- 
cgit v1.2.3