diff options
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 |