diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-07-05 11:24:12 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-07-05 11:24:12 +0100 |
| commit | 05edc13c9b82f65f852a2643f3d561277a6f0f54 (patch) | |
| tree | 51b629995f43ce379316be7cb36a4f6feb5d9ff4 /guix-qa-frontpage/guix-data-service.scm | |
| parent | f3e888bf34c8fdc5ef7cee67054c159264dee4a7 (diff) | |
| download | qa-frontpage-05edc13c9b82f65f852a2643f3d561277a6f0f54.tar qa-frontpage-05edc13c9b82f65f852a2643f3d561277a6f0f54.tar.gz | |
Add a new package changes page
And make some refactoring to make this easier.
Diffstat (limited to 'guix-qa-frontpage/guix-data-service.scm')
| -rw-r--r-- | guix-qa-frontpage/guix-data-service.scm | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/guix-qa-frontpage/guix-data-service.scm b/guix-qa-frontpage/guix-data-service.scm index c35881c..fbb41ee 100644 --- a/guix-qa-frontpage/guix-data-service.scm +++ b/guix-qa-frontpage/guix-data-service.scm @@ -19,8 +19,8 @@ guix-data-service-error->sexp - revision-derivation-changes-url - revision-derivation-changes + compare-package-derivations-url + compare-package-derivations revision-comparison-url revision-comparison @@ -118,7 +118,7 @@ (< (guix-data-service-error-response-code exn) 500)))))) -(define* (revision-derivation-changes-url base-and-target-refs #:key systems) +(define* (compare-package-derivations-url base-and-target-refs #:key systems) (string-append "https://data.qa.guix.gnu.org/compare/package-derivations.json?" "base_commit=" (assq-ref base-and-target-refs 'base) @@ -131,16 +131,12 @@ "&target=none" "&field=builds&limit_results=&all_results=on")) -(define (revision-derivation-changes url) +(define (compare-package-derivations url) (let ((json-body (guix-data-service-request url))) (if json-body - (values (vector->list - (assoc-ref json-body - "derivation_changes")) - (alist-delete "derivation_changes" - json-body)) - (values #f #f)))) + json-body + #f))) (define* (revision-comparison-url base-and-target-refs #:key (json? #t)) (string-append |