01/02: hydra: Support per-package absolute build timeouts.

[Mark H. Weaver]

mhw pushed a commit to branch master
in repository guix.

commit ae0bcc1e9d43fe961224ef564a36d2ec564271b6
Author: Mark H Weaver <address@hidden>
Date:   Thu May 28 22:50:19 2015 -0400

    hydra: Support per-package absolute build timeouts.
    
    * build-aux/hydra/gnu-system.scm (package->alist): Use the 'timeout' value 
in
      the package 'properties' alist, if present.
---
 build-aux/hydra/gnu-system.scm |    6 ++----
 1 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm
index 8d9b43c..83cc6fb 100644
--- a/build-aux/hydra/gnu-system.scm
+++ b/build-aux/hydra/gnu-system.scm
@@ -78,10 +78,8 @@
     (license . ,(package-license package))
     (home-page . ,(package-home-page package))
     (maintainers . ("address@hidden"))
-
-    ;; Work around versions of 'hydra-eval-guile-jobs' before Hydra commit
-    ;; 61448ca (27 Feb. 2014) which used a default timeout of 2h.
-    (timeout . 72000)))
+    (timeout . ,(or (assoc-ref (package-properties package) 'timeout)
+                    72000)))) ; 20 hours by default
 
 (define (package-job store job-name package system)
   "Return a job called JOB-NAME that builds PACKAGE on SYSTEM."