diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-12-17 19:17:55 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-12-17 19:17:55 +0000 |
| commit | 8eaee93f94591f0e55488aa0d4e6f97746b2b587 (patch) | |
| tree | 78b26fffa094ba4f97ff40bfa63d792d61640a7c /guix-qa-frontpage | |
| parent | 439a6a8a2ef9aa3e6541f7077070255b5db1e1be (diff) | |
| download | qa-frontpage-8eaee93f94591f0e55488aa0d4e6f97746b2b587.tar qa-frontpage-8eaee93f94591f0e55488aa0d4e6f97746b2b587.tar.gz | |
Improve matching build servers
Just use the host from the URL, rather than depending on the whole thing
matching.
Diffstat (limited to 'guix-qa-frontpage')
| -rw-r--r-- | guix-qa-frontpage/branch.scm | 11 |
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")))) |