From afa6b13f6e3369f611917f5ffe5e0534c6cf4dc4 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sun, 29 Oct 2023 11:52:47 +0000
Subject: Fetch and display package reproducibility information for branches

This involved some refactoring of branch data in general.
---
 guix-qa-frontpage/manage-builds.scm | 29 ++++++++++-------------------
 1 file changed, 10 insertions(+), 19 deletions(-)

(limited to 'guix-qa-frontpage/manage-builds.scm')

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
-- 
cgit v1.2.3