diff options
author | Christopher Baines <mail@cbaines.net> | 2020-10-21 19:26:18 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-10-21 19:26:18 +0100 |
commit | efb26a616dd374d73e4fbcce4652eac04bae2c38 (patch) | |
tree | c16d1ab1f9a49cb499d2edd64158ef33dfdde06e /guix-data-service/web/build-server | |
parent | 41a7f38f44c10878e536135cbfabd4e37ca4fb21 (diff) | |
download | data-service-efb26a616dd374d73e4fbcce4652eac04bae2c38.tar data-service-efb26a616dd374d73e4fbcce4652eac04bae2c38.tar.gz |
Add a view build link on the build page
Diffstat (limited to 'guix-data-service/web/build-server')
-rw-r--r-- | guix-data-service/web/build-server/controller.scm | 3 | ||||
-rw-r--r-- | guix-data-service/web/build-server/html.scm | 13 |
2 files changed, 12 insertions, 4 deletions
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") |