From de98cbfaa366647012c2797f3b8ed553ef37deac Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sun, 30 Jun 2024 11:14:16 +0100
Subject: [PATCH] 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