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)