diff options
author | Christopher Baines <mail@cbaines.net> | 2019-12-27 10:13:01 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2019-12-27 10:13:01 +0000 |
commit | 1ce1a405a6048952a3707e3c369f26c94e81e184 (patch) | |
tree | 52cb5d25c01b828b6c267ea05cb69895308e5654 /guix-data-service | |
parent | 76548779914fa2b5dda8fa30d2a53f846cbb5467 (diff) | |
download | data-service-1ce1a405a6048952a3707e3c369f26c94e81e184.tar data-service-1ce1a405a6048952a3707e3c369f26c94e81e184.tar.gz |
Link to the derivation history page from the branch package page
Diffstat (limited to 'guix-data-service')
-rw-r--r-- | guix-data-service/web/repository/html.scm | 24 |
1 files changed, 17 insertions, 7 deletions
diff --git a/guix-data-service/web/repository/html.scm b/guix-data-service/web/repository/html.scm index 0141058..9e94bf3 100644 --- a/guix-data-service/web/repository/html.scm +++ b/guix-data-service/web/repository/html.scm @@ -176,13 +176,23 @@ (a (@ (href ,(string-append "/repository/" git-repository-id "/branch/" branch-name))) (h3 ,(string-append branch-name " branch"))) - (a (@ (class "btn btn-default btn-lg pull-right") - (href ,(string-append - "/repository/" git-repository-id - "/branch/" branch-name - "/package/" package-name - ".json"))) - "View JSON") + (div + (@ (class "btn-group pull-right") + (role "group")) + (a (@ (class "btn btn-default btn-lg") + (href ,(string-append + "/repository/" git-repository-id + "/branch/" branch-name + "/package/" package-name + "/derivation-history"))) + "Include derivations") + (a (@ (class "btn btn-default btn-lg") + (href ,(string-append + "/repository/" git-repository-id + "/branch/" branch-name + "/package/" package-name + ".json"))) + "View JSON")) (h1 (@ (style "white-space: nowrap;")) (samp ,package-name)))) (div |