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