diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-12-16 20:31:13 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-12-16 20:31:13 +0000 |
| commit | 7e476536cb27bc9fbf7db2413ae52b61e6663d36 (patch) | |
| tree | 82d1c0197c40e457d098e949cdfc213385d1cd1b | |
| parent | 4af643136e121c8158bc41caa5acfbf10d4d35bb (diff) | |
| download | data-service-7e476536cb27bc9fbf7db2413ae52b61e6663d36.tar data-service-7e476536cb27bc9fbf7db2413ae52b61e6663d36.tar.gz | |
Link to the derivation outputs from the package reproducibility page
| -rw-r--r-- | guix-data-service/web/revision/html.scm | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/guix-data-service/web/revision/html.scm b/guix-data-service/web/revision/html.scm index f6366a1..54f63b9 100644 --- a/guix-data-service/web/revision/html.scm +++ b/guix-data-service/web/revision/html.scm @@ -840,16 +840,24 @@ figure { (@ (class "figure-key-list") (aria-hidden "true") (role "presentation")) - ,@(map (lambda (label count percentage colour) + ,@(map (lambda (key label count percentage colour) `(li (span (@ (class "shape-circle") (style ,(string-append "background-color: " colour ";")))) - ,(format #f "~a (~d, ~2,2f%)" - label - (or count 0) - (or percentage 0)))) + (a (@ (href + ,(string-append + "/revision/" revision-commit-hash + "/derivation-outputs?" + "reproducibility_status=" key + "&system=" system + "&target=" system))) + ,(format #f "~a (~d, ~2,2f%)" + label + (or count 0) + (or percentage 0))))) + '("reproducible" "unreproducible" "unknown") '("Reproducible" "Unreproducible" "Unknown") (map (lambda (key) (assq-ref reproducibility-status key)) |