diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-07-05 11:24:12 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-07-05 11:24:12 +0100 |
| commit | 05edc13c9b82f65f852a2643f3d561277a6f0f54 (patch) | |
| tree | 51b629995f43ce379316be7cb36a4f6feb5d9ff4 /guix-qa-frontpage/manage-patch-branches.scm | |
| parent | f3e888bf34c8fdc5ef7cee67054c159264dee4a7 (diff) | |
| download | qa-frontpage-05edc13c9b82f65f852a2643f3d561277a6f0f54.tar qa-frontpage-05edc13c9b82f65f852a2643f3d561277a6f0f54.tar.gz | |
Add a new package changes page
And make some refactoring to make this easier.
Diffstat (limited to 'guix-qa-frontpage/manage-patch-branches.scm')
| -rw-r--r-- | guix-qa-frontpage/manage-patch-branches.scm | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/guix-qa-frontpage/manage-patch-branches.scm b/guix-qa-frontpage/manage-patch-branches.scm index 7496724..b29cf67 100644 --- a/guix-qa-frontpage/manage-patch-branches.scm +++ b/guix-qa-frontpage/manage-patch-branches.scm @@ -232,13 +232,15 @@ (define get-changes-compared-to-master (memoize (lambda (base-commit) - (length - (revision-derivation-changes - (revision-derivation-changes-url - `((base . ,base-commit) - (target . ,latest-master-revision)) - ;; TODO: Maybe do something smarter here? - #:systems '("x86_64-linux"))))))) + (vector-length + (assoc-ref + (compare-package-derivations + (compare-package-derivations-url + `((base . ,base-commit) + (target . ,latest-master-revision)) + ;; TODO: Maybe do something smarter here? + #:systems '("x86_64-linux"))) + "derivation_changes"))))) (simple-format #t "checking for branches to delete (looking at ~A branches)\n" (length issue-numbers)) |