diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-07-08 14:42:31 +0200 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-07-08 14:42:31 +0200 |
| commit | 9ee17386b178d98607c218dd594d707ca5f5ccdd (patch) | |
| tree | a90a8122a5d49b447efb1cf5a2ba91429f7345fa | |
| parent | 7c0a4ff61c052d5c46afd8ba9b827658e2e998fe (diff) | |
| download | qa-frontpage-9ee17386b178d98607c218dd594d707ca5f5ccdd.tar qa-frontpage-9ee17386b178d98607c218dd594d707ca5f5ccdd.tar.gz | |
Fix the branch package changes page
| -rw-r--r-- | guix-qa-frontpage/branch.scm | 11 | ||||
| -rw-r--r-- | guix-qa-frontpage/server.scm | 34 |
2 files changed, 32 insertions, 13 deletions
diff --git a/guix-qa-frontpage/branch.scm b/guix-qa-frontpage/branch.scm index 47aa76e..56a194c 100644 --- a/guix-qa-frontpage/branch.scm +++ b/guix-qa-frontpage/branch.scm @@ -41,6 +41,7 @@ #:export (list-non-master-branches branch-derivation-changes-data + branch-derivation-changes-data/all-systems branch-data master-branch-data @@ -195,6 +196,16 @@ #:unwind? #t #:unwind-for-type &guix-data-service-error)) +(define (branch-derivation-changes-data/all-systems revisions) + (with-exception-handler guix-data-service-error->sexp + (lambda () + (compare-package-derivations + (compare-package-derivations-url + revisions + #:systems %systems-to-submit-builds-for))) + #:unwind? #t + #:unwind-for-type &guix-data-service-error)) + (define* (branch-data branch-name) (define branch-commit (get-commit diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm index fbfe29c..a6ed9d5 100644 --- a/guix-qa-frontpage/server.scm +++ b/guix-qa-frontpage/server.scm @@ -217,19 +217,27 @@ 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 - (with-sqlite-cache - database - 'branch-data - branch-data - #:args - (list branch) - #:version 3 - #:ttl 6000))) + (let* ((revisions + derivation-changes-counts + substitute-availability + package-reproducibility + up-to-date-with-master + (with-sqlite-cache + database + 'branch-data + branch-data + #:args + (list branch) + #:version 3 + #:ttl 6000)) + (derivation-changes + (with-sqlite-cache + database + 'branch-derivation-changes-data + branch-derivation-changes-data/all-systems + #:args + (list revisions) + #:ttl 6000))) (render-html #:sxml (branch-package-changes-view branch |