diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-06-03 11:59:15 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-06-03 11:59:15 +0100 |
| commit | 857e7f0a5d217695363da1e4de9fd3c854f02cc1 (patch) | |
| tree | 50b3426f7f20d4b3029cfee3241e3d77b0e13bf5 /guix-qa-frontpage/view/branch.scm | |
| parent | 13c3321cefbda243c3d22f5f95ebb6c7fa842e45 (diff) | |
| download | qa-frontpage-857e7f0a5d217695363da1e4de9fd3c854f02cc1.tar qa-frontpage-857e7f0a5d217695363da1e4de9fd3c854f02cc1.tar.gz | |
Make branch builds conditional on master branch substitute availability
As is done for patches. While the build coordinator prioritises the builds, I
think this can stil help make best use of the build farm.
Diffstat (limited to 'guix-qa-frontpage/view/branch.scm')
| -rw-r--r-- | guix-qa-frontpage/view/branch.scm | 28 |
1 files changed, 27 insertions, 1 deletions
diff --git a/guix-qa-frontpage/view/branch.scm b/guix-qa-frontpage/view/branch.scm index c2a02ec..c428fc4 100644 --- a/guix-qa-frontpage/view/branch.scm +++ b/guix-qa-frontpage/view/branch.scm @@ -11,7 +11,8 @@ (define (branch-view branch revisions derivation-changes-counts substitute-availability - up-to-date-with-master) + up-to-date-with-master + master-branch-systems-with-low-substitute-availability) (define* (package-derivations-comparison-link system #:key build-change) (string-append @@ -121,6 +122,31 @@ td.bad { '("Information unavailable"))) (h2 "Packages") + + ,@(if (or (null? master-branch-systems-with-low-substitute-availability) + (not derivation-changes-counts) + (assq-ref derivation-changes-counts 'exception) + (null? derivation-changes-counts)) + '() + `((p (@ (style ,(string-join + '("text-align: center;" + "font-weight: bold;" + "padding: 1rem;" + "max-width: 46rem;" + "border-width: 0.35em;" + "border-style: dashed;" + "border-color: red")))) + "Submitting builds for this branch suspended as " + (a (@ (href "/branch/master")) + "master branch substitute availability") + " is low for: " + ,@(append-map + (lambda (system) + `((span (@ (style "font-family: monospace; white-space: nowrap;")) + ,system + " "))) + master-branch-systems-with-low-substitute-availability)))) + (div (table (@ (style "border-collapse: collapse;")) |