diff options
| -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))))))) |