From a4641ab780d1002ef80c7464882ad667fe0ee87f Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 5 Dec 2022 18:58:52 +0000 Subject: Pull more get-issue-branch-base-and-target-refs calls out --- scripts/guix-qa-frontpage.in | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) (limited to 'scripts') 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) -- cgit v1.2.3