diff options
Diffstat (limited to 'scripts')
-rw-r--r-- | scripts/guix-qa-frontpage.in | 36 |
1 files changed, 20 insertions, 16 deletions
diff --git a/scripts/guix-qa-frontpage.in b/scripts/guix-qa-frontpage.in index e405c39..7c4e42e 100644 --- a/scripts/guix-qa-frontpage.in +++ b/scripts/guix-qa-frontpage.in @@ -34,6 +34,7 @@ (prometheus) (guix-qa-frontpage database) (guix-qa-frontpage manage-builds) + (guix-qa-frontpage git-repository) (guix-qa-frontpage manage-patch-branches) (guix-qa-frontpage server)) @@ -118,22 +119,25 @@ (setup-database (assq-ref opts 'database) metrics-registry))) - (start-refresh-data-thread database) + (parameterize + ((%git-repository-location (string-append (getcwd) "/guix.git"))) - (when (assq-ref opts 'submit-builds) - (start-submit-patch-builds-thread database - "http://127.0.0.1:8746" - "https://data.qa.guix.gnu.org") - (start-submit-branch-builds-thread database - "http://127.0.0.1:8746" - "https://data.qa.guix.gnu.org")) + (start-refresh-data-thread database) - (when (assq-ref opts 'manage-patch-branches) - (start-manage-patch-branches-thread)) + (when (assq-ref opts 'submit-builds) + (start-submit-patch-builds-thread database + "http://127.0.0.1:8746" + "https://data.qa.guix.gnu.org") + (start-submit-branch-builds-thread database + "http://127.0.0.1:8746" + "https://data.qa.guix.gnu.org")) - (start-guix-qa-frontpage-web-server - (assq-ref opts 'port) - (assq-ref opts 'host) - (assq-ref opts 'assets-directory) - database - metrics-registry))) + (when (assq-ref opts 'manage-patch-branches) + (start-manage-patch-branches-thread)) + + (start-guix-qa-frontpage-web-server + (assq-ref opts 'port) + (assq-ref opts 'host) + (assq-ref opts 'assets-directory) + database + metrics-registry)))) |