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/server.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/server.scm')
| -rw-r--r-- | guix-qa-frontpage/server.scm | 52 |
1 files changed, 29 insertions, 23 deletions
diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm index 9ae9bb1..ee3441d 100644 --- a/guix-qa-frontpage/server.scm +++ b/guix-qa-frontpage/server.scm @@ -154,49 +154,63 @@ (branches-view branches)))) (('GET "branch" "master") (let ((substitute-availability + systems-with-low-substitute-availability + package-reproducibility (with-sqlite-cache database 'master-branch-data master-branch-data - #:ttl 6000))) + #:ttl 6000 + #:version 2))) (render-html #:sxml - (master-branch-view substitute-availability)))) + (master-branch-view substitute-availability + package-reproducibility)))) (('GET "branch" branch) (let ((revisions derivation-changes 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) - #:version 2 - #:ttl 6000))) + #:version 3 + #:ttl 6000)) + (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 6000 + #:version 2))) (render-html #:sxml (branch-view branch revisions derivation-changes substitute-availability + package-reproducibility up-to-date-with-master master-branch-systems-with-low-substitute-availability)))) (('GET "branch" branch "package-changes") (let ((revisions derivation-changes 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) - #:version 2 + #:version 3 #:ttl 6000))) (render-html #:sxml @@ -304,18 +318,14 @@ (< (first a) (first b))))))))) (master-branch-substitute-availability + systems-with-low-substitute-availability + master-branch-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))) (render-html #:sxml (patches-view sorted-latest-series @@ -573,18 +583,14 @@ (branch (patchwork-series->branch series)) (master-branch-substitute-availability + systems-with-low-substitute-availability + master-branch-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))) (render-html #:sxml (issue-view number series |