diff options
author | Christopher Baines <mail@cbaines.net> | 2020-07-04 09:31:12 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-07-04 09:31:12 +0100 |
commit | e9d4e74e5606932f34e0f2ab30321ac8384c8edc (patch) | |
tree | 6f0ac01453feaa7741cc1807441744178dd49a8d /guix-data-service/web/view | |
parent | 5dc9ed65ff179e71b34235d0a96729577cab3bd7 (diff) | |
download | data-service-e9d4e74e5606932f34e0f2ab30321ac8384c8edc.tar data-service-e9d4e74e5606932f34e0f2ab30321ac8384c8edc.tar.gz |
Add builds to the store item page
Diffstat (limited to 'guix-data-service/web/view')
-rw-r--r-- | guix-data-service/web/view/html.scm | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index 9dcd7aa..2b1e4fb 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -439,7 +439,8 @@ time." (define (view-store-item filename derivations derivations-using-store-item-list - nars) + nars + builds) (layout #:body `(,(header) @@ -495,6 +496,21 @@ time." (dd ,(assoc-ref signature "host_name")))) signatures))))))) nars))) + (div + (@ (class "row")) + (div + (@ (class "col-sm-12")) + (h2 "Builds") + ,@(map + (match-lambda + ((build-server-id build-server-url build-server-build-id + derivation-file-name + timestamp status) + `(a (@ (href ,(build-url build-server-id + build-server-build-id + derivation-file-name))) + ,(build-status-span status)))) + builds))) ,@(map (lambda (derivation derivations-using-store-item) `((div (@ (class "row")) |