aboutsummaryrefslogtreecommitdiff
path: root/guix-data-service
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2019-11-14 20:57:38 +0000
committerChristopher Baines <mail@cbaines.net>2019-11-21 19:54:54 +0000
commit78e830d91e1f4a6dbe6be42731d2c9e518a905e6 (patch)
treee8fd77004af5bc542e56d4438eb14232eace498f /guix-data-service
parente31f370de0601c69269fadd52708886bff5accce (diff)
downloaddata-service-78e830d91e1f4a6dbe6be42731d2c9e518a905e6.tar
data-service-78e830d91e1f4a6dbe6be42731d2c9e518a905e6.tar.gz
Link to derivation comparison page from the compare/derivations page
Diffstat (limited to 'guix-data-service')
-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)))