aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2019-11-14 20:57:38 +0000
committerChristopher Baines <mail@cbaines.net>2019-11-14 21:08:20 +0000
commitedef55b43e72509ecfd68f25cb597128219d3aba (patch)
treee8fd77004af5bc542e56d4438eb14232eace498f
parentada5a04dd137ba77a5497042968970b47d272e65 (diff)
downloaddata-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.scm17
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)))