diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-03-23 17:59:40 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-03-23 17:59:40 +0000 |
| commit | ce2d4c4d5be93c0d73577e426c3c53d922633667 (patch) | |
| tree | 26adf0d12249fe2b85a47751f638aab4000fd335 | |
| parent | b90e120eb800c7975284aaf51b5a7b7d621d89a6 (diff) | |
| download | qa-frontpage-ce2d4c4d5be93c0d73577e426c3c53d922633667.tar qa-frontpage-ce2d4c4d5be93c0d73577e426c3c53d922633667.tar.gz | |
Use the %data-service-url-base in more places
Which will have the effect of not using https.
| -rw-r--r-- | guix-qa-frontpage/package.scm | 4 | ||||
| -rw-r--r-- | guix-qa-frontpage/reproducible-builds.scm | 2 | ||||
| -rw-r--r-- | guix-qa-frontpage/server.scm | 4 | ||||
| -rw-r--r-- | scripts/guix-qa-frontpage.in | 5 |
4 files changed, 8 insertions, 7 deletions
diff --git a/guix-qa-frontpage/package.scm b/guix-qa-frontpage/package.scm index 9638ac4..a436c02 100644 --- a/guix-qa-frontpage/package.scm +++ b/guix-qa-frontpage/package.scm @@ -10,12 +10,12 @@ (assoc-ref (guix-data-service-request (string-append - "https://data.qa.guix.gnu.org/revision/" revision + %data-service-url-base "/revision/" revision "/package/" name ".json")) "versions"))) (data (guix-data-service-request (string-append - "https://data.qa.guix.gnu.org/revision/" revision + %data-service-url-base "/revision/" revision "/package/" name "/" (last package-versions) ".json")))) (peek data))) diff --git a/guix-qa-frontpage/reproducible-builds.scm b/guix-qa-frontpage/reproducible-builds.scm index 20ace13..1415e24 100644 --- a/guix-qa-frontpage/reproducible-builds.scm +++ b/guix-qa-frontpage/reproducible-builds.scm @@ -13,7 +13,7 @@ (data (guix-data-service-request (string-append - "https://data.qa.guix.gnu.org/revision/" revision + %data-service-url-base "/revision/" revision "/package-derivation-outputs.json?" "system=x86_64-linux&target=none&field=nars" "&limit_results=&all_results=on"))) diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm index 2f70a6a..9bcad19 100644 --- a/guix-qa-frontpage/server.scm +++ b/guix-qa-frontpage/server.scm @@ -919,13 +919,13 @@ Disallow: /issue (start-submit-patch-builds-fiber database "http://127.0.0.1:8746" - "https://data.qa.guix.gnu.org" + %data-service-url-base metrics-registry #:series-count patch-issues-to-show) (start-submit-branch-builds-fiber database "http://127.0.0.1:8746" - "https://data.qa.guix.gnu.org" + %data-service-url-base metrics-registry))) (wait finished?)) #:hz 0 diff --git a/scripts/guix-qa-frontpage.in b/scripts/guix-qa-frontpage.in index 7f070ee..114125f 100644 --- a/scripts/guix-qa-frontpage.in +++ b/scripts/guix-qa-frontpage.in @@ -38,6 +38,7 @@ (guix-qa-frontpage patchwork) (guix-qa-frontpage manage-builds) (guix-qa-frontpage git-repository) + (guix-qa-frontpage guix-data-service) (guix-qa-frontpage manage-patch-branches) (guix-qa-frontpage server)) @@ -174,7 +175,7 @@ (submit-builds-for-issue database "http://127.0.0.1:8746" - "https://data.qa.guix.gnu.org" + %data-service-url-base issue-number-str #:priority (or (assq-ref opts 'priority) @@ -201,7 +202,7 @@ (submit-builds-for-branch database "http://127.0.0.1:8746" - "https://data.qa.guix.gnu.org" + %data-service-url-base branch-name #:priority (or (assq-ref opts 'priority) |