diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-12-09 19:08:19 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-12-09 19:08:19 +0000 |
| commit | 74980bce707c687730ed78b0798419f61bfa7727 (patch) | |
| tree | c27ed91f23301384cf2e23f77127bffe4ceb52a1 /guix-data-service/web | |
| parent | 69057b41a793e06ab2b6234050dae15c57a694b1 (diff) | |
| download | data-service-74980bce707c687730ed78b0798419f61bfa7727.tar data-service-74980bce707c687730ed78b0798419f61bfa7727.tar.gz | |
Improve build links on the package derivations page
Diffstat (limited to 'guix-data-service/web')
| -rw-r--r-- | guix-data-service/web/revision/html.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/guix-data-service/web/revision/html.scm b/guix-data-service/web/revision/html.scm index 58f1bb1..8ed7eee 100644 --- a/guix-data-service/web/revision/html.scm +++ b/guix-data-service/web/revision/html.scm @@ -1663,11 +1663,11 @@ figure { ,(assq-ref build-server-urls build-server-id))) (dd - (a (@ (href - ,(simple-format - #f "/build-server/~A/build?derivation_file_name=~A" - build-server-id - file-name))) + (a (@ (href ,(build-url + build-server-id + (assoc-ref build + "build_server_build_id") + file-name))) ,(build-status-alist->build-icon build)))))) (vector->list builds))))))) derivations))) |