From 78e830d91e1f4a6dbe6be42731d2c9e518a905e6 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 14 Nov 2019 20:57:38 +0000 Subject: Link to derivation comparison page from the compare/derivations page --- guix-data-service/web/compare/html.scm | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) (limited to 'guix-data-service') 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))) -- cgit v1.2.3