diff options
Diffstat (limited to 'guix-qa-frontpage/guix-data-service.scm')
| -rw-r--r-- | guix-qa-frontpage/guix-data-service.scm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/guix-qa-frontpage/guix-data-service.scm b/guix-qa-frontpage/guix-data-service.scm index 8de4e21..03bb39d 100644 --- a/guix-qa-frontpage/guix-data-service.scm +++ b/guix-qa-frontpage/guix-data-service.scm @@ -22,6 +22,7 @@ guix-data-service-error->sexp compare-package-derivations-url + compare-package-cross-derivations-url compare-package-derivations revision-comparison-url @@ -178,6 +179,18 @@ "&target=none" "&field=builds&limit_results=&all_results=on")) +(define* (compare-package-cross-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) + "&target_commit=" (assq-ref base-and-target-refs 'target) + (string-join + (map (lambda (system) + (simple-format #f "&system=~A" system)) + (or systems '())) + "") + "&field=builds&limit_results=&all_results=on")) + (define (compare-package-derivations url) (let ((json-body (guix-data-service-request url))) |