aboutsummaryrefslogtreecommitdiff
path: root/guix-data-service
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2019-12-27 10:13:01 +0000
committerChristopher Baines <mail@cbaines.net>2019-12-27 10:13:01 +0000
commit1ce1a405a6048952a3707e3c369f26c94e81e184 (patch)
tree52cb5d25c01b828b6c267ea05cb69895308e5654 /guix-data-service
parent76548779914fa2b5dda8fa30d2a53f846cbb5467 (diff)
downloaddata-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.scm24
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