diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-05-16 18:58:52 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-05-17 14:39:38 +0100 |
| commit | 7fb8df2b87c8e7668b450c17cc3bfbc1bfefab16 (patch) | |
| tree | 03d812f5273e3bfc38e43e4fa06218bd68d7790e /scripts/guix-qa-frontpage.in | |
| parent | efee8b54bed477b0369f1191dbcf97f9fb7d6e5b (diff) | |
| download | qa-frontpage-7fb8df2b87c8e7668b450c17cc3bfbc1bfefab16.tar qa-frontpage-7fb8df2b87c8e7668b450c17cc3bfbc1bfefab16.tar.gz | |
Set %file-port-name-canonicalization 'none
Diffstat (limited to 'scripts/guix-qa-frontpage.in')
| -rw-r--r-- | scripts/guix-qa-frontpage.in | 47 |
1 files changed, 24 insertions, 23 deletions
diff --git a/scripts/guix-qa-frontpage.in b/scripts/guix-qa-frontpage.in index 330cb88..eee3b4c 100644 --- a/scripts/guix-qa-frontpage.in +++ b/scripts/guix-qa-frontpage.in @@ -265,28 +265,29 @@ (assq-ref opts 'host) (assq-ref opts 'port)) - (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))) + (with-fluids ((%file-port-name-canonicalization 'none)) + (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))) - (when (assq-ref opts 'manage-patch-branches) - (start-manage-patch-branches-thread database - metrics-registry - #:series-count patch-issues-to-show)) + (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) - (assq-ref opts 'assets-directory) - database - metrics-registry - #:controller-args `(#:doc-dir ,doc-dir - #:patch-issues-to-show ,patch-issues-to-show) - #:submit-builds? (assq-ref opts 'submit-builds) - #:patch-issues-to-show patch-issues-to-show - #:generate-reproducible.json #t)))))) + (start-guix-qa-frontpage + (assq-ref opts 'port) + (assq-ref opts 'host) + (assq-ref opts 'assets-directory) + database + metrics-registry + #:controller-args `(#:doc-dir ,doc-dir + #:patch-issues-to-show ,patch-issues-to-show) + #:submit-builds? (assq-ref opts 'submit-builds) + #:patch-issues-to-show patch-issues-to-show + #:generate-reproducible.json #t))))))) |