diff options
Diffstat (limited to 'guix-qa-frontpage/branch.scm')
| -rw-r--r-- | guix-qa-frontpage/branch.scm | 47 |
1 files changed, 28 insertions, 19 deletions
diff --git a/guix-qa-frontpage/branch.scm b/guix-qa-frontpage/branch.scm index 016d544..125437e 100644 --- a/guix-qa-frontpage/branch.scm +++ b/guix-qa-frontpage/branch.scm @@ -227,32 +227,39 @@ #:unwind? #t #:unwind-for-type &guix-data-service-error)) - ;; TODO: Only include systems for which derivations are changed by - ;; this branch - (master-branch-systems-with-low-substitute-availability - (get-systems-with-low-substitute-availability - (master-branch-data) - (lset-difference - string=? - %systems-to-submit-builds-for - %systems-with-expected-low-substitute-availability)))) - + (package-reproducibility + (guix-data-service-request + (package-reproducibility-url branch-commit)))) (values revisions derivation-changes-data substitute-availability - up-to-date-with-master? - master-branch-systems-with-low-substitute-availability)) + package-reproducibility + up-to-date-with-master?)) - (values #f #f #f #f #f))) + (values #f #f #f #f #f #f))) (define* (master-branch-data) (let* ((substitute-availability (package-substitute-availability - "https://data.qa.guix.gnu.org/repository/2/branch/master/latest-processed-revision/package-substitute-availability.json"))) + "https://data.qa.guix.gnu.org/repository/2/branch/master/latest-processed-revision/package-substitute-availability.json")) + + (package-reproducibility + (guix-data-service-request + "https://data.qa.guix.gnu.org/repository/2/branch/master/latest-processed-revision/package-reproducibility.json")) + + (systems-with-low-substitute-availability + (get-systems-with-low-substitute-availability + substitute-availability + (lset-difference + string=? + %systems-to-submit-builds-for + %systems-with-expected-low-substitute-availability)))) (values - substitute-availability))) + substitute-availability + systems-with-low-substitute-availability + package-reproducibility))) (define* (get-systems-with-low-substitute-availability substitute-availability systems @@ -379,15 +386,15 @@ (let ((revisions derivation-change-counts substitute-availability + package-reproducibility up-to-date-with-master? - master-branch-systems-with-low-substitute-availability (with-sqlite-cache database 'branch-data branch-data #:args (list branch-name) - #:version 2 + #:version 3 #:ttl (/ frequency 2)))) (unless (or (not substitute-availability) @@ -402,12 +409,14 @@ branches)) (let ((master-branch-substitute-availability + master-branch-systems-with-low-substitute-availability + master-branch-package-reproducibility (with-sqlite-cache database 'master-branch-data master-branch-data - #:ttl 0))) - + #:ttl 0 + #:version 2))) (update-branch-substitute-availability-metrics "master" master-branch-substitute-availability))) |