aboutsummaryrefslogtreecommitdiff
path: root/guix-qa-frontpage
diff options
context:
space:
mode:
Diffstat (limited to 'guix-qa-frontpage')
-rw-r--r--guix-qa-frontpage/branch.scm11
1 files changed, 7 insertions, 4 deletions
diff --git a/guix-qa-frontpage/branch.scm b/guix-qa-frontpage/branch.scm
index a9463e5..5266ade 100644
--- a/guix-qa-frontpage/branch.scm
+++ b/guix-qa-frontpage/branch.scm
@@ -23,6 +23,7 @@
#:use-module (ice-9 match)
#:use-module (ice-9 regex)
#:use-module (ice-9 threads)
+ #:use-module (web uri)
#:use-module (prometheus)
#:use-module ((guix-build-coordinator utils)
#:select (with-time-logging))
@@ -331,10 +332,12 @@
(lambda (details)
;; TODO: Don't hardcode this
(string=?
- "https://bordeaux.guix.gnu.org"
- (assoc-ref
- (assoc-ref details "server")
- "url")))
+ "bordeaux.guix.gnu.org"
+ (uri-host
+ (string->uri
+ (assoc-ref
+ (assoc-ref details "server")
+ "url")))))
(vector->list substitute-availability))
"availability"))))