diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-02-17 17:46:32 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-02-17 17:46:32 +0000 |
| commit | 9ecef359dfe3dd1edf289165384708183fe3278d (patch) | |
| tree | 10968489635f42b4af4361031afd0ee22e3886c2 /scripts | |
| parent | d8003e4d93d3d94f641109d0553be675005fdfbd (diff) | |
| download | qa-frontpage-9ecef359dfe3dd1edf289165384708183fe3278d.tar qa-frontpage-9ecef359dfe3dd1edf289165384708183fe3278d.tar.gz | |
Tweak and join up how many patch series are processed
By different parts of the code.
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/guix-qa-frontpage.in | 19 |
1 files changed, 14 insertions, 5 deletions
diff --git a/scripts/guix-qa-frontpage.in b/scripts/guix-qa-frontpage.in index 5cc5b5f..d60c711 100644 --- a/scripts/guix-qa-frontpage.in +++ b/scripts/guix-qa-frontpage.in @@ -119,15 +119,22 @@ "guixqafrontpage")) (database (setup-database (assq-ref opts 'database) - metrics-registry))) + metrics-registry)) - (start-refresh-patch-branches-data-thread database) + (patch-issues-to-show 200)) + + (start-refresh-patch-branches-data-thread + database + #:number-of-series-to-refresh + (+ patch-issues-to-show 10)) (start-refresh-non-patch-branches-data-thread database) (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" + #:series-count + patch-issues-to-show) (start-submit-branch-builds-thread database "http://127.0.0.1:8746" "https://data.qa.guix.gnu.org") @@ -136,11 +143,13 @@ "https://data.qa.guix.gnu.org")) (when (assq-ref opts 'manage-patch-branches) - (start-manage-patch-branches-thread database)) + (start-manage-patch-branches-thread database + #:series-count patch-issues-to-show)) (start-guix-qa-frontpage-web-server (assq-ref opts 'port) (assq-ref opts 'host) (assq-ref opts 'assets-directory) database - metrics-registry)))) + metrics-registry + #:controller-args `(#:patch-issues-to-show ,patch-issues-to-show))))) |