diff options
Diffstat (limited to 'guix-qa-frontpage/manage-builds.scm')
| -rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 21 |
1 files changed, 14 insertions, 7 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index b05cd2b..4d357a0 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -243,14 +243,21 @@ guix-data-service) (define (submit-builds) (simple-format #t "submitting branch builds\n") - (let ((branches '())) + (let ((branches + (take (with-sqlite-cache + database + 'list-non-master-branches + list-non-master-branches + #:ttl 0) + 1))) (for-each - (lambda (branch) - (submit-builds-for-branch - database - build-coordinator - guix-data-service - branch)) + (match-lambda + ((branch . details) + (submit-builds-for-branch + database + build-coordinator + guix-data-service + branch))) branches))) (call-with-new-thread |