diff options
Diffstat (limited to 'guix-data-service/web/view/html.scm')
-rw-r--r-- | guix-data-service/web/view/html.scm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index 3391073..f16f45f 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -581,10 +581,17 @@ ,(build-status-span ""))) (map (match-lambda - ((build-server-url timestamp status) + ((build-server-id build-server-url timestamp status) + (peek build-server-id timestamp status) `(div (@ (class "text-center")) - (div ,(build-status-span status)) + (div + (a (@ (href + ,(simple-format + #f "/build-server/~A/build?derivation_file_name=~A" + build-server-id + (second derivation)))) + ,(build-status-span status))) (a (@ (style "display: inline-block; margin-top: 0.4em;") (href ,(simple-format #f "~Abuild/~A" |