diff options
author | Christopher Baines <mail@cbaines.net> | 2023-06-02 10:26:37 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-06-02 10:26:37 +0100 |
commit | ba394b3b431d84c08a55f2d981d850625202e6c5 (patch) | |
tree | a747629f29225ff441bc5344a79d99919b144475 /guix-qa-frontpage/branch.scm | |
parent | 94534933deebc31721024bd32bbb0d494c121fa9 (diff) | |
download | qa-frontpage-ba394b3b431d84c08a55f2d981d850625202e6c5.tar qa-frontpage-ba394b3b431d84c08a55f2d981d850625202e6c5.tar.gz |
Highlight when branches are out of date
Diffstat (limited to 'guix-qa-frontpage/branch.scm')
-rw-r--r-- | guix-qa-frontpage/branch.scm | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/guix-qa-frontpage/branch.scm b/guix-qa-frontpage/branch.scm index 14e13fd..a704d57 100644 --- a/guix-qa-frontpage/branch.scm +++ b/guix-qa-frontpage/branch.scm @@ -110,6 +110,17 @@ `((base . ,merge-base) (target . ,branch-commit))) + (up-to-date-with-master? + (let ((changes + (length + (revision-derivation-changes + (revision-derivation-changes-url + revisions + ;; TODO: Maybe do something smarter here? + #:systems '("x86_64-linux")))))) + `((up-to-date? . ,(< changes 3000)) + (changes . ,changes)))) + (derivation-changes-counts (with-exception-handler (lambda (exn) @@ -161,7 +172,8 @@ (values revisions derivation-changes-counts - substitute-availability))) + substitute-availability + up-to-date-with-master?))) (define* (master-branch-data) (let* ((substitute-availability |