diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-11-14 20:57:38 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-11-14 21:08:20 +0000 |
| commit | edef55b43e72509ecfd68f25cb597128219d3aba (patch) | |
| tree | e8fd77004af5bc542e56d4438eb14232eace498f | |
| parent | ada5a04dd137ba77a5497042968970b47d272e65 (diff) | |
| download | data-service-edef55b43e72509ecfd68f25cb597128219d3aba.tar data-service-edef55b43e72509ecfd68f25cb597128219d3aba.tar.gz | |
Link to derivation comparison page from the compare/derivations page
| -rw-r--r-- | guix-data-service/web/compare/html.scm | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/guix-data-service/web/compare/html.scm b/guix-data-service/web/compare/html.scm index 92e76ff..384a559 100644 --- a/guix-data-service/web/compare/html.scm +++ b/guix-data-service/web/compare/html.scm @@ -557,7 +557,8 @@ (th "Version") (th "System") (th "Target") - (th (@ (class "col-xs-5")) "Derivations"))) + (th (@ (class "col-xs-5")) "Derivations") + (th ""))) (tbody ,@(append-map (match-lambda @@ -608,6 +609,20 @@ (span (@ (class "text-success glyphicon glyphicon-plus pull-left") (style "font-size: 1.5em; padding-right: 0.4em;"))) ,(and=> target-derivation-file-name display-store-item-short))) + '())) + (td (@ (style "vertical-align: middle;")) + ,@(if (and base-derivation-file-name + target-derivation-file-name) + `((a (@ (class "btn btn-sm btn-default") + (title "Compare") + (href + ,(string-append + "/compare/derivation?" + "base_derivation=" + base-derivation-file-name + "&target_derivation=" + target-derivation-file-name))) + "⇕ Compare")) '())))))) system-and-versions))) |