diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-06-30 11:14:16 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-06-30 11:14:16 +0100 |
| commit | de98cbfaa366647012c2797f3b8ed553ef37deac (patch) | |
| tree | 7f83030b00a40a1745e005d363b793322ba88770 /guix-data-service/web | |
| parent | 335715bc723d66702901c6a67815551efeed720e (diff) | |
| download | data-service-de98cbfaa366647012c2797f3b8ed553ef37deac.tar data-service-de98cbfaa366647012c2797f3b8ed553ef37deac.tar.gz | |
Remove the statistics page
As it's been broken for a long time now, there are too many rows to count.
Diffstat (limited to 'guix-data-service/web')
| -rw-r--r-- | guix-data-service/web/controller.scm | 9 | ||||
| -rw-r--r-- | guix-data-service/web/view/html.scm | 29 |
2 files changed, 0 insertions, 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 @@ -305,10 +304,6 @@ (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")) "Jobs")))) @@ -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 |