cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove the statistics page

Browse source 
As it's been broken for a long time now, there are too many rows to count.
This commit is contained in:
Christopher Baines 2024-06-30 11:14:16 +01:00
parent 335715bc72
commit de98cbfaa3
2 changed files with 0 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

9
guix-data-service/web/controller.scm
View file

@ -822,15 +822,6 @@
(all-git-repositories conn)))))) (all-git-repositories conn))))))
(('GET "builds") (('GET "builds")
(delegate-to build-controller)) (delegate-to build-controller))
(('GET "statistics")
(letpar& ((guix-revisions-count
(with-resource-from-pool (connection-pool) conn count-guix-revisions))
(count-derivations
(with-resource-from-pool (connection-pool) conn count-derivations)))
(render-html
#:sxml (view-statistics guix-revisions-count
count-derivations))))
(('GET "metrics") (('GET "metrics")
(parameterize (parameterize
((resource-pool-default-timeout 6)) ((resource-pool-default-timeout 6))

29
guix-data-service/web/view/html.scm
View file

@ -43,7 +43,6 @@
index index
readme readme
general-not-found general-not-found
view-statistics
view-builds view-builds
view-derivation view-derivation
view-formatted-derivation view-formatted-derivation
@ -304,10 +303,6 @@
(@ (class "btn-group pull-right") (@ (class "btn-group pull-right")
(style "margin-top: 1.3rem;") (style "margin-top: 1.3rem;")
(role "group")) (role "group"))
(a (@ (class "btn btn-lg btn-default")
(href "/statistics")
(role "button"))
"Statistics")
(a (@ (class "btn btn-lg btn-default") (a (@ (class "btn btn-lg btn-default")
(href "/jobs") (href "/jobs")
(role "button")) (role "button"))
@ -335,30 +330,6 @@
branches-with-most-recent-commits))))))) branches-with-most-recent-commits)))))))
git-repositories-and-revisions))))) git-repositories-and-revisions)))))
(define (view-statistics guix-revisions-count derivations-count)
(define page-header "Statistics")
(layout
#:title
page-header
#:body
`(,(header)
(div
(@ (class "container"))
(div
(@ (class "row"))
(div
(@ (class "col-md-6"))
(h3 "Guix revisions")
(strong (@ (class "text-center")
(style "font-size: 2em; display: block;"))
,guix-revisions-count))
(div
(@ (class "col-md-6"))
(h3 "Derivations")
(strong (@ (class "text-center")
(style "font-size: 2em; display: block;"))
,derivations-count)))))))
(define (table/branches-with-most-recent-commits (define (table/branches-with-most-recent-commits
git-repository-id branches-with-most-recent-commits) git-repository-id branches-with-most-recent-commits)
`(table `(table