diff options
Diffstat (limited to 'guix-qa-frontpage/manage-builds.scm')
| -rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index 62d98db..b05cd2b 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -147,7 +147,23 @@ exn)) (lambda () (with-throw-handler #t - submit-builds + (lambda () + (let* ((master-branch-substitute-availability + (with-sqlite-cache + database + 'master-branch-data + master-branch-data + #:ttl 6000)) + (systems-with-low-substitute-availability + (get-systems-with-low-substitute-availability + master-branch-substitute-availability + (delete "i586-gnu" + %systems-to-submit-builds-for + string=?)))) + + (if (null? systems-with-low-substitute-availability) + (submit-builds) + (sleep 900)))) (lambda args (display (backtrace) (current-error-port)) (newline (current-error-port))))) |