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/view | |
| 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/view')
| -rw-r--r-- | guix-qa-frontpage/view/issue.scm | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/guix-qa-frontpage/view/issue.scm b/guix-qa-frontpage/view/issue.scm index 219d6fc..637a4fe 100644 --- a/guix-qa-frontpage/view/issue.scm +++ b/guix-qa-frontpage/view/issue.scm @@ -10,19 +10,10 @@ #:export (issue-view)) (define (issue-view issue-number series mumi-tags + comparison-link derivation-changes change-details comparison-details) - (define comparison-link - (and=> - (assoc-ref change-details "revisions") - (lambda (revisions) - (simple-format #f "https://data.qa.guix.gnu.org/compare?base_commit=~A&target_commit=~A" - (assoc-ref (assoc-ref revisions "base") - "commit") - (assoc-ref (assoc-ref revisions "target") - "commit"))))) - (define* (package-derivations-comparison-link system #:key build-change) (let ((revisions |