From 8eaee93f94591f0e55488aa0d4e6f97746b2b587 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Tue, 17 Dec 2024 19:17:55 +0000
Subject: Improve matching build servers

Just use the host from the URL, rather than depending on the whole thing
matching.
---
 guix-qa-frontpage/branch.scm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'guix-qa-frontpage')

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"))))
 
-- 
cgit v1.2.3