diff options
author | Christopher Baines <mail@cbaines.net> | 2020-07-01 19:51:21 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-07-01 19:51:21 +0100 |
commit | dc8b442e128a1338656469e48af759574734f6d6 (patch) | |
tree | 9ede8548a664041fa06cf302f086cdac42ab032f /guix-data-service/web/revision | |
parent | 1e2fefa7cf796b6a74f729b27805fbf140592ca7 (diff) | |
download | data-service-dc8b442e128a1338656469e48af759574734f6d6.tar data-service-dc8b442e128a1338656469e48af759574734f6d6.tar.gz |
Improve the linking to build servers
Add a build-url function that returns the URL to use, and use this where
appropriate.
Diffstat (limited to 'guix-data-service/web/revision')
-rw-r--r-- | guix-data-service/web/revision/html.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/guix-data-service/web/revision/html.scm b/guix-data-service/web/revision/html.scm index 60c6466..b2622b3 100644 --- a/guix-data-service/web/revision/html.scm +++ b/guix-data-service/web/revision/html.scm @@ -1929,14 +1929,15 @@ figure { (tbody ,@(map (match-lambda - ((build-id build-server-url derivation-file-name + ((build-id build-server-url build-server-build-id + derivation-file-name timestamp status) `(tr (td (@ (class "text-center")) (a (@ (href - ,(simple-format - #f "/build-server/~A/build?derivation_file_name=~A" + ,(build-url (assoc-ref build-server-options build-server-url) + build-server-build-id derivation-file-name))) ,(build-status-span status))) (td (a (@ (href ,derivation-file-name)) |