diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-10-25 21:15:02 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-10-25 21:15:02 +0100 |
| commit | 733a22a26b3772c3a081b7b88e3652f10971c9c8 (patch) | |
| tree | 7ce7069672d5bf944abda9daee28d7b0cadd4ef0 /scripts | |
| parent | 886295cbd1dd00f5a5310f82140c6b12544356c2 (diff) | |
| download | qa-frontpage-733a22a26b3772c3a081b7b88e3652f10971c9c8.tar qa-frontpage-733a22a26b3772c3a081b7b88e3652f10971c9c8.tar.gz | |
Adopt managing patch branches
This previously happened with some scripts run through Laminar, this commit
moves the functionality here.
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/guix-qa-frontpage.in | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/scripts/guix-qa-frontpage.in b/scripts/guix-qa-frontpage.in index 53e45c2..e405c39 100644 --- a/scripts/guix-qa-frontpage.in +++ b/scripts/guix-qa-frontpage.in @@ -34,6 +34,7 @@ (prometheus) (guix-qa-frontpage database) (guix-qa-frontpage manage-builds) + (guix-qa-frontpage manage-patch-branches) (guix-qa-frontpage server)) (define %options @@ -63,7 +64,10 @@ result))) (option '("submit-builds") #f #f (lambda (opt name _ result) - (alist-cons 'submit-builds #t result))))) + (alist-cons 'submit-builds #t result))) + (option '("manage-patch-branches") #f #f + (lambda (opt name _ result) + (alist-cons 'manage-patch-branches #t result))))) (define %default-options ;; Alist of default option values @@ -79,7 +83,8 @@ dev-dir))) (database . ,(string-append (getcwd) "/guix_qa_frontpage.db")) - (submit-builds . #f))) + (submit-builds . #f) + (manage-patch-branches . #f))) (define (parse-options args) (args-fold @@ -94,14 +99,6 @@ (setvbuf (current-error-port) 'line) (let ((opts (parse-options (cdr (program-arguments))))) - (when (assq-ref opts 'repl) - ((@@ (ice-9 top-repl) call-with-sigint) - (lambda () - (with-postgresql-connection-per-thread - "repl" - start-repl))) - (exit 0)) - (let ((pid-file (assq-ref opts 'pid-file))) (when pid-file (call-with-output-file pid-file @@ -131,6 +128,9 @@ "http://127.0.0.1:8746" "https://data.qa.guix.gnu.org")) + (when (assq-ref opts 'manage-patch-branches) + (start-manage-patch-branches-thread)) + (start-guix-qa-frontpage-web-server (assq-ref opts 'port) (assq-ref opts 'host) |