diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-12-27 00:09:07 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-12-27 00:09:07 +0000 |
| commit | 76548779914fa2b5dda8fa30d2a53f846cbb5467 (patch) | |
| tree | 8ce32e87680b1a61d65daeea9ff8102dd307057d /guix-data-service/web | |
| parent | 0e3c28ffbd3df31d805bc7f16acc76a8f6201d0e (diff) | |
| download | data-service-76548779914fa2b5dda8fa30d2a53f846cbb5467.tar data-service-76548779914fa2b5dda8fa30d2a53f846cbb5467.tar.gz | |
Improve the builds info on the revision package version page
Show multiple builds, and link to the build page.
Diffstat (limited to 'guix-data-service/web')
| -rw-r--r-- | guix-data-service/web/revision/html.scm | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/guix-data-service/web/revision/html.scm b/guix-data-service/web/revision/html.scm index 6007425..c50c487 100644 --- a/guix-data-service/web/revision/html.scm +++ b/guix-data-service/web/revision/html.scm @@ -237,13 +237,25 @@ (tbody ,@(map (match-lambda - ((system target file-name status) + ((system target file-name builds) `(tr (td (samp ,system)) (td (samp ,target)) (td (a (@ (href ,file-name)) ,(display-store-item-short file-name))) - (td ,(build-status-span status))))) + (td + (ul + (@ (class "list-inline")) + ,@(map (lambda (build) + `(li + (a (@ (href + ,(simple-format + #f "/build-server/~A/build?derivation_file_name=~A" + (assoc-ref build "build_server_id") + file-name))) + ,(build-status-span + (assoc-ref build "status"))))) + builds)))))) derivations))))) (div (@ (class "row")) |