diff options
author | Christopher Baines <mail@cbaines.net> | 2022-09-14 13:30:55 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2022-09-14 13:30:55 +0100 |
commit | 93069166f374be0959490e0811b89a5bd71a7a45 (patch) | |
tree | b44d21d55cb7322896254b925159eaf3e40eca62 /scripts | |
parent | bc09b73119b06f918ee7c10281c03cbecbdc56b8 (diff) | |
download | qa-frontpage-93069166f374be0959490e0811b89a5bd71a7a45.tar qa-frontpage-93069166f374be0959490e0811b89a5bd71a7a45.tar.gz |
Start adding support for branches
Diffstat (limited to 'scripts')
-rw-r--r-- | scripts/guix-qa-frontpage.in | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/scripts/guix-qa-frontpage.in b/scripts/guix-qa-frontpage.in index 904875c..3a8451d 100644 --- a/scripts/guix-qa-frontpage.in +++ b/scripts/guix-qa-frontpage.in @@ -61,9 +61,9 @@ (alist-cons 'database arg result))) - (option '("submit-builds-for-patches") #f #f + (option '("submit-builds") #f #f (lambda (opt name _ result) - (alist-cons 'submit-builds-for-patches #t result))))) + (alist-cons 'submit-builds #t result))))) (define %default-options ;; Alist of default option values @@ -79,7 +79,7 @@ dev-dir))) (database . ,(string-append (getcwd) "/guix_qa_frontpage.db")) - (submit-builds-for-patches . #f))) + (submit-builds . #f))) (define (parse-options args) (args-fold @@ -121,10 +121,13 @@ (setup-database (assq-ref opts 'database) metrics-registry))) - (when (assq-ref opts 'submit-builds-for-patches) + (when (assq-ref opts 'submit-builds) (start-submit-patch-builds-thread database "http://127.0.0.1:8746" - "https://data.qa.guix.gnu.org")) + "https://data.qa.guix.gnu.org") + (start-submit-branch-builds-thread database + "http://127.0.0.1:8746" + "https://data.qa.guix.gnu.org")) (start-guix-qa-frontpage-web-server (assq-ref opts 'port) |