diff options
| -rw-r--r-- | guix-qa-frontpage/server.scm | 6 | ||||
| -rw-r--r-- | scripts/guix-qa-frontpage.in | 6 |
2 files changed, 7 insertions, 5 deletions
diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm index fe3ab71..9fa3d52 100644 --- a/guix-qa-frontpage/server.scm +++ b/guix-qa-frontpage/server.scm @@ -824,6 +824,7 @@ has no patches or has been closed.") database metrics-registry #:key (controller-args '()) submit-builds? + manage-patch-branches? patch-issues-to-show generate-reproducible.json) (define controller @@ -835,6 +836,11 @@ has no patches or has been closed.") (%patchwork-series-default-count patch-issues-to-show) + (when manage-patch-branches? + (start-manage-patch-branches-thread database + metrics-registry + #:series-count patch-issues-to-show)) + (let ((finished? (make-condition))) (call-with-new-thread (lambda () diff --git a/scripts/guix-qa-frontpage.in b/scripts/guix-qa-frontpage.in index eee3b4c..d20722f 100644 --- a/scripts/guix-qa-frontpage.in +++ b/scripts/guix-qa-frontpage.in @@ -275,11 +275,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 +284,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))))))) |