From 0b0d734a97879728af06a58572994bd32cae6ff6 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 22 Dec 2019 15:23:03 +0000 Subject: [PATCH] Add links from the builds pages to the pages for individual builds --- guix-data-service/web/build/html.scm | 7 ++++++- guix-data-service/web/revision/html.scm | 7 ++++++- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/guix-data-service/web/build/html.scm b/guix-data-service/web/build/html.scm index f5ac6dc..c3d7c90 100644 --- a/guix-data-service/web/build/html.scm +++ b/guix-data-service/web/build/html.scm @@ -107,7 +107,12 @@ timestamp status) `(tr (td (@ (class "text-center")) - ,(build-status-span status)) + (a (@ (href + ,(simple-format + #f "/build-server/~A/build?derivation_file_name=~A" + (assoc-ref build-server-options build-server-url) + derivation-file-name))) + ,(build-status-span status))) (td (a (@ (href ,derivation-file-name)) ,(display-store-item-short derivation-file-name))) (td ,timestamp) diff --git a/guix-data-service/web/revision/html.scm b/guix-data-service/web/revision/html.scm index 127005f..5d166c9 100644 --- a/guix-data-service/web/revision/html.scm +++ b/guix-data-service/web/revision/html.scm @@ -1248,7 +1248,12 @@ figure { timestamp status) `(tr (td (@ (class "text-center")) - ,(build-status-span status)) + (a (@ (href + ,(simple-format + #f "/build-server/~A/build?derivation_file_name=~A" + (assoc-ref build-server-options build-server-url) + derivation-file-name))) + ,(build-status-span status))) (td (a (@ (href ,derivation-file-name)) ,(display-store-item-short derivation-file-name))) (td ,timestamp)