diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-12-22 15:23:03 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-12-22 15:23:03 +0000 |
| commit | 0b0d734a97879728af06a58572994bd32cae6ff6 (patch) | |
| tree | 8c1b2b5dad417ce9503fe201f968d22c52f48848 | |
| parent | 14b79936369c2755d9a98d2c3ca839081b20833d (diff) | |
| download | data-service-0b0d734a97879728af06a58572994bd32cae6ff6.tar data-service-0b0d734a97879728af06a58572994bd32cae6ff6.tar.gz | |
Add links from the builds pages to the pages for individual builds
| -rw-r--r-- | guix-data-service/web/build/html.scm | 7 | ||||
| -rw-r--r-- | 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) |