diff options
| -rw-r--r-- | guix-qa-frontpage/branch.scm | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/guix-qa-frontpage/branch.scm b/guix-qa-frontpage/branch.scm index a704d57..afff87d 100644 --- a/guix-qa-frontpage/branch.scm +++ b/guix-qa-frontpage/branch.scm @@ -111,15 +111,19 @@ (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")))))) + (let* ((master-revision + (get-latest-processed-branch-revision "master")) + (changes + (length + (revision-derivation-changes + (revision-derivation-changes-url + `((base . ,merge-base) + (target . ,master-revision)) + ;; TODO: Maybe do something smarter here? + #:systems '("x86_64-linux")))))) `((up-to-date? . ,(< changes 3000)) - (changes . ,changes)))) + (changes . ,changes) + (master . ,master-revision)))) (derivation-changes-counts (with-exception-handler |