diff options
| -rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 18 | ||||
| -rw-r--r-- | guix-qa-frontpage/server.scm | 17 | ||||
| -rw-r--r-- | guix-qa-frontpage/view/patches.scm | 16 |
3 files changed, 47 insertions, 4 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))))) diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm index e4e46ee..d77b646 100644 --- a/guix-qa-frontpage/server.scm +++ b/guix-qa-frontpage/server.scm @@ -181,13 +181,26 @@ #t) (else (< (first a) - (first b)))))))))) + (first b))))))))) + (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=?)))) (render-html #:sxml (patches-view (if (> (length sorted-latest-series) patch-issues-to-show) (take sorted-latest-series patch-issues-to-show) - sorted-latest-series))))) + sorted-latest-series) + systems-with-low-substitute-availability)))) (('GET "issue" (? (lambda (s) (string-suffix? ".svg" s)) number.svg)) (let* ((number (string->number (car (string-split number.svg #\.)))) diff --git a/guix-qa-frontpage/view/patches.scm b/guix-qa-frontpage/view/patches.scm index cd99fb4..4e848c9 100644 --- a/guix-qa-frontpage/view/patches.scm +++ b/guix-qa-frontpage/view/patches.scm @@ -4,7 +4,7 @@ #:use-module (guix-qa-frontpage view util) #:export (patches-view)) -(define (patches-view latest-series) +(define (patches-view latest-series systems-with-low-substitute-availability) (layout #:title "Patches" #:body @@ -13,6 +13,20 @@ top.") (p "For issues with the green status (important checks passing), the oldest ones will appear first.") + ,@(if (or (eq? #f systems-with-low-substitute-availability) + (null? systems-with-low-substitute-availability)) + '() + `((p (@ (style "text-align: center; font-weight: bold;")) + "Builds for new patch series suspended as low " + (a (@ (href "/branch/master")) + "master branch substitute availability") + " for: " + ,@(append-map + (lambda (system) + `((span (@ (style "font-family: monospace;")) + ,system + " "))) + systems-with-low-substitute-availability)))) (table (tbody ,@(map (match-lambda |