diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-12-05 18:58:52 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-12-05 18:58:52 +0000 |
| commit | a4641ab780d1002ef80c7464882ad667fe0ee87f (patch) | |
| tree | d5cac791bdf8f3c3fb29193eba9914287a67a970 /scripts | |
| parent | d5de7cf2caf8504a00cd1947df941a1e485bc9a3 (diff) | |
| download | qa-frontpage-a4641ab780d1002ef80c7464882ad667fe0ee87f.tar qa-frontpage-a4641ab780d1002ef80c7464882ad667fe0ee87f.tar.gz | |
Pull more get-issue-branch-base-and-target-refs calls out
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/guix-qa-frontpage.in | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/scripts/guix-qa-frontpage.in b/scripts/guix-qa-frontpage.in index 7c4e42e..9debaf7 100644 --- a/scripts/guix-qa-frontpage.in +++ b/scripts/guix-qa-frontpage.in @@ -112,15 +112,14 @@ (assq-ref opts 'host) (assq-ref opts 'port)) - (let* ((metrics-registry (make-metrics-registry - #:namespace - "guixqafrontpage")) - (database - (setup-database (assq-ref opts 'database) - metrics-registry))) - - (parameterize - ((%git-repository-location (string-append (getcwd) "/guix.git"))) + (parameterize + ((%git-repository-location (string-append (getcwd) "/guix.git"))) + (let* ((metrics-registry (make-metrics-registry + #:namespace + "guixqafrontpage")) + (database + (setup-database (assq-ref opts 'database) + metrics-registry))) (start-refresh-data-thread database) |