diff options
Diffstat (limited to 'scripts/guix-qa-frontpage.in')
| -rw-r--r-- | scripts/guix-qa-frontpage.in | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/scripts/guix-qa-frontpage.in b/scripts/guix-qa-frontpage.in index eee3b4c..c666901 100644 --- a/scripts/guix-qa-frontpage.in +++ b/scripts/guix-qa-frontpage.in @@ -267,7 +267,8 @@ (with-fluids ((%file-port-name-canonicalization 'none)) (parameterize - ((%git-repository-location (string-append (getcwd) "/guix.git"))) + ((%git-repository-location (string-append (getcwd) "/guix.git")) + (%patchwork-series-default-count patch-issues-to-show)) (let* ((metrics-registry (make-metrics-registry #:namespace "guixqafrontpage")) @@ -275,11 +276,6 @@ (setup-database (assq-ref opts 'database) metrics-registry))) - (when (assq-ref opts 'manage-patch-branches) - (start-manage-patch-branches-thread database - metrics-registry - #:series-count patch-issues-to-show)) - (start-guix-qa-frontpage (assq-ref opts 'port) (assq-ref opts 'host) @@ -289,5 +285,6 @@ #:controller-args `(#:doc-dir ,doc-dir #:patch-issues-to-show ,patch-issues-to-show) #:submit-builds? (assq-ref opts 'submit-builds) + #:manage-patch-branches? (assq-ref opts 'manage-patch-branches) #:patch-issues-to-show patch-issues-to-show #:generate-reproducible.json #t))))))) |