From d2b494c177e9823d6ca302ed793d348b3d171f22 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 13 Sep 2023 11:57:18 +0100 Subject: Move submitting patch builds in to a fiber As this should help improve reliability and parallelism (eventually). --- scripts/guix-qa-frontpage.in | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) (limited to 'scripts') diff --git a/scripts/guix-qa-frontpage.in b/scripts/guix-qa-frontpage.in index c57d14d..3368860 100644 --- a/scripts/guix-qa-frontpage.in +++ b/scripts/guix-qa-frontpage.in @@ -254,12 +254,6 @@ metrics-registry) (when (assq-ref opts 'submit-builds) - (start-submit-patch-builds-thread database - "http://127.0.0.1:8746" - "https://data.qa.guix.gnu.org" - metrics-registry - #:series-count - patch-issues-to-show) (start-submit-branch-builds-thread database "http://127.0.0.1:8746" "https://data.qa.guix.gnu.org" @@ -274,11 +268,13 @@ (start-manage-patch-branches-thread database #:series-count patch-issues-to-show)) - (start-guix-qa-frontpage-web-server + (start-guix-qa-frontpage (assq-ref opts 'port) (assq-ref opts 'host) (assq-ref opts 'assets-directory) database metrics-registry #:controller-args `(#:doc-dir ,doc-dir - #:patch-issues-to-show ,patch-issues-to-show))))))) + #:patch-issues-to-show ,patch-issues-to-show) + #:submit-builds? (assq-ref opts 'submit-builds) + #:patch-issues-to-show patch-issues-to-show)))))) -- cgit v1.2.3