From efb26a616dd374d73e4fbcce4652eac04bae2c38 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 21 Oct 2020 19:26:18 +0100 Subject: Add a view build link on the build page --- guix-data-service/web/build-server/controller.scm | 3 ++- guix-data-service/web/build-server/html.scm | 13 ++++++++++--- 2 files changed, 12 insertions(+), 4 deletions(-) (limited to 'guix-data-service/web/build-server') diff --git a/guix-data-service/web/build-server/controller.scm b/guix-data-service/web/build-server/controller.scm index 9c185c6..8587278 100644 --- a/guix-data-service/web/build-server/controller.scm +++ b/guix-data-service/web/build-server/controller.scm @@ -74,7 +74,8 @@ (view-build query-parameters build (match build - ((url derivation-file-name statuses) + ((build-server-url build-server-build-id + derivation-file-name statuses) (if (member (assoc-ref (last (vector->list statuses)) "status") diff --git a/guix-data-service/web/build-server/html.scm b/guix-data-service/web/build-server/html.scm index 0078e8e..f16a570 100644 --- a/guix-data-service/web/build-server/html.scm +++ b/guix-data-service/web/build-server/html.scm @@ -40,7 +40,8 @@ (div (@ (class "row")) ,@(match build - ((url derivation-file-name statuses) + ((build-server-url build-server-build-id + derivation-file-name statuses) `((div (@ (class "col-sm-6")) (dl @@ -48,8 +49,14 @@ (dt "Derivation") (dd ,(display-possible-store-item derivation-file-name)) (dt "Build server URL") - (dd (a (@ (href ,url)) - ,url)))) + (dd (a (@ (href ,build-server-url)) + ,build-server-url))) + (a (@ (style "display: inline-block; margin-top: 0.4em;") + (href ,(build-server-link-url + build-server-url + build-server-build-id + derivation-file-name))) + "View build on " ,build-server-url)) (div (@ (class "col-sm-6")) (h3 "Timeline") -- cgit v1.2.3