Add a statistics page

To show the total number of derivations, and guix revisions.
2019-04-08 21:04:12 +01:00 · 2019-04-08 21:04:12 +01:00 · 6022edd074
commit 6022edd074
parent 0c72ee747c
2 changed files with 29 additions and 0 deletions
--- a/guix-data-service/web/controller.scm
+++ b/guix-data-service/web/controller.scm
@ -293,6 +293,10 @@
     (apply render-html
            (view-builds (select-build-stats conn)
                         (select-builds-with-context conn))))
+    ((GET "statistics")
+     (apply render-html
+            (view-statistics (count-guix-revisions conn)
+                             (count-derivations conn))))
    ((GET "revision" commit-hash)
     (apply render-html
            (view-revision commit-hash