diff options
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))))) |