diff options
author | Christopher Baines <mail@cbaines.net> | 2022-11-22 09:03:36 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2022-11-22 09:03:36 +0000 |
commit | fffc15b9887075e68155b940a0a726c7f241fb82 (patch) | |
tree | 8cf6d2b18c1939c29317a7de5757e791adda7c40 /guix-qa-frontpage/guix-data-service.scm | |
parent | fa4820317c10d2858f6fd4e82174d6f313622896 (diff) | |
download | qa-frontpage-fffc15b9887075e68155b940a0a726c7f241fb82.tar qa-frontpage-fffc15b9887075e68155b940a0a726c7f241fb82.tar.gz |
Improve linking to the Guix Data Service comparison
Diffstat (limited to 'guix-qa-frontpage/guix-data-service.scm')
-rw-r--r-- | guix-qa-frontpage/guix-data-service.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/guix-qa-frontpage/guix-data-service.scm b/guix-qa-frontpage/guix-data-service.scm index 5b6dd20..700bd2e 100644 --- a/guix-qa-frontpage/guix-data-service.scm +++ b/guix-qa-frontpage/guix-data-service.scm @@ -73,12 +73,14 @@ (alist-delete "derivation_changes" json-body))))))) -(define (patch-series-compare-url issue-number) +(define* (patch-series-compare-url issue-number #:key (json? #t)) (and=> (get-issue-branch-base-and-target-refs issue-number) (lambda (base-and-target) (string-append - "https://data.qa.guix.gnu.org/compare.json?" + "https://data.qa.guix.gnu.org/compare" + (if json? ".json" "") + "?" "base_commit=" (assq-ref base-and-target 'base) "&target_commit=" (assq-ref base-and-target 'target))))) |