diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-05-25 08:36:36 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-05-25 08:36:36 +0100 |
| commit | 45d8790240f38400b0209627b343e70f0d9a3cc2 (patch) | |
| tree | f86b46ad10316df9070ed2397727c7cc3b307b2f /guix-qa-frontpage/manage-builds.scm | |
| parent | b0fe6c630ec98a8c314ce8c59af64a7d77181fbe (diff) | |
| download | qa-frontpage-45d8790240f38400b0209627b343e70f0d9a3cc2.tar qa-frontpage-45d8790240f38400b0209627b343e70f0d9a3cc2.tar.gz | |
Automate submitting builds for branches
Based on the guix-patches issues.
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 |