diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-11-20 21:55:17 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-11-20 21:55:17 +0000 |
| commit | bc6b1b398199f3956e305456a7a55d07cf4dc5fa (patch) | |
| tree | 2255eb1360aa672beb62b18f001cb89f4b32b493 /scripts | |
| parent | 6d1428f350d8e21c58f3cdecd6964c5ce8af70e5 (diff) | |
| download | qa-frontpage-bc6b1b398199f3956e305456a7a55d07cf4dc5fa.tar qa-frontpage-bc6b1b398199f3956e305456a7a55d07cf4dc5fa.tar.gz | |
Try to fix an issue with the cwd being changed by different threads
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)))) |