diff options
Diffstat (limited to 'guix-qa-frontpage/view/issue.scm')
| -rw-r--r-- | guix-qa-frontpage/view/issue.scm | 35 |
1 files changed, 34 insertions, 1 deletions
diff --git a/guix-qa-frontpage/view/issue.scm b/guix-qa-frontpage/view/issue.scm index f7e83f9..e149cc4 100644 --- a/guix-qa-frontpage/view/issue.scm +++ b/guix-qa-frontpage/view/issue.scm @@ -11,6 +11,7 @@ #:use-module (guix-qa-frontpage view shared) #:export (issue-view issue-package-changes-view + issue-package-cross-changes-view issue-prepare-review-view)) @@ -19,6 +20,7 @@ create-branch-for-issue-log comparison-link derivation-changes + cross-derivation-changes builds-missing? change-details comparison-details systems-with-low-substitute-availability) @@ -32,6 +34,14 @@ (define derivation-changes-counts (assq-ref derivation-changes 'counts)) + (define cross-derivation-changes-counts + (and cross-derivation-changes + (filter + (match-lambda + (((system . target) . derivations) #t) + (_ #f)) + (assq-ref cross-derivation-changes 'counts)))) + (define links-div `(div (@ (class "large-screen-float-right")) @@ -189,7 +199,8 @@ (null? systems-with-low-substitute-availability) (not comparison-details) (assq-ref comparison-details 'exception) - (null? derivation-changes-counts)) + (and (null? derivation-changes-counts) + (null? cross-derivation-changes-counts))) '() ;; TODO: Only show (and apply) this if it relates to these ;; changes. So just look at the systems relevant to the changes. @@ -219,6 +230,18 @@ (target . ,(assoc-ref (assoc-ref revisions "target") "commit")))) derivation-changes-counts + (string-append "/issue/" issue-number)) + + (h4 "Cross builds from " + (code "x86_64-linux")) + + ,(package-cross-changes-summary-table + (let ((revisions (assoc-ref change-details "revisions"))) + `((base . ,(assoc-ref (assoc-ref revisions "base") + "commit")) + (target . ,(assoc-ref (assoc-ref revisions "target") + "commit")))) + cross-derivation-changes-counts (string-append "/issue/" issue-number)))) (define prepare-review-section @@ -363,6 +386,16 @@ div.bad { derivation-changes query-parameters)) +(define (issue-package-cross-changes-view issue-number + system + cross-derivation-changes + query-parameters) + (package-cross-changes-view + (simple-format #f "Issue ~A" issue-number) + system + cross-derivation-changes + query-parameters)) + (define (issue-prepare-review-view issue-number query-parameters) (define (escape str) (call-with-output-string |