cbaines pushed a commit to branch master
in repository data-service.
commit de98cbfaa366647012c2797f3b8ed553ef37deac
Author: Christopher Baines <[email protected]>
AuthorDate: Sun Jun 30 11:14:16 2024 +0100
Remove the statistics page
As it's been broken for a long time now, there are too many rows to count.
---
guix-data-service/web/controller.scm | 9 ---------
guix-data-service/web/view/html.scm | 29 -----------------------------
2 files changed, 38 deletions(-)
diff --git a/guix-data-service/web/controller.scm
b/guix-data-service/web/controller.scm
index 5d0a651..a589941 100644
--- a/guix-data-service/web/controller.scm
+++ b/guix-data-service/web/controller.scm
@@ -822,15 +822,6 @@
(all-git-repositories conn))))))
(('GET "builds")
(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")
(parameterize
((resource-pool-default-timeout 6))
diff --git a/guix-data-service/web/view/html.scm
b/guix-data-service/web/view/html.scm
index ab09644..98766de 100644
--- a/guix-data-service/web/view/html.scm
+++ b/guix-data-service/web/view/html.scm
@@ -43,7 +43,6 @@
index
readme
general-not-found
- view-statistics
view-builds
view-derivation
view-formatted-derivation
@@ -304,10 +303,6 @@
(@ (class "btn-group pull-right")
(style "margin-top: 1.3rem;")
(role "group"))
- (a (@ (class "btn btn-lg btn-default")
- (href "/statistics")
- (role "button"))
- "Statistics")
(a (@ (class "btn btn-lg btn-default")
(href "/jobs")
(role "button"))
@@ -335,30 +330,6 @@
branches-with-most-recent-commits)))))))
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
git-repository-id branches-with-most-recent-commits)
`(table
