diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-10-29 11:52:47 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-10-29 11:52:47 +0000 |
| commit | afa6b13f6e3369f611917f5ffe5e0534c6cf4dc4 (patch) | |
| tree | c18e19ade5aec6a14b739334fafb5c73e01386eb /guix-qa-frontpage/manage-builds.scm | |
| parent | 21d81034da0861f70c94e33dae221eb3d210c5b1 (diff) | |
| download | qa-frontpage-afa6b13f6e3369f611917f5ffe5e0534c6cf4dc4.tar qa-frontpage-afa6b13f6e3369f611917f5ffe5e0534c6cf4dc4.tar.gz | |
Fetch and display package reproducibility information for branches
This involved some refactoring of branch data in general.
Diffstat (limited to 'guix-qa-frontpage/manage-builds.scm')
| -rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 29 |
1 files changed, 10 insertions, 19 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index 0658daf..4de85d1 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -203,19 +203,15 @@ (lambda () (with-throw-handler #t (lambda () - (let* ((master-branch-substitute-availability + (let* ((substitute-availability + systems-with-low-substitute-availability + package-reproducibility (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 - (lset-difference - string=? - %systems-to-submit-builds-for - %systems-with-expected-low-substitute-availability)))) + #:ttl 6000 + #:version 2))) (if (null? systems-with-low-substitute-availability) (call-with-duration-metric @@ -415,20 +411,15 @@ (unless (null? branches-with-builds-to-cancel) (cancel-branch-builds branches-with-builds-to-cancel))) - (let* ((master-branch-substitute-availability + (let* ((substitute-availability + systems-with-low-substitute-availability + package-reproducibility (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 - (lset-difference - string=? - %systems-to-submit-builds-for - %systems-with-expected-low-substitute-availability)))) - + #:ttl 6000 + #:version 2))) (if (null? systems-with-low-substitute-availability) (submit-builds branch-names) (simple-format |