add metrics using prometheus

sneeuwballen · Jan 22, 2024 · 77a05de · 77a05de
1 parent 4a0f495
commit 77a05de
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 2 deletions.
diff --git a/benchpress-server.opam b/benchpress-server.opam
@@ -20,7 +20,7 @@ depends: [
   "gnuplot" { >= "0.6" & < "0.8" }
   "sqlite3"
   "sqlite3_utils" { >= "0.4" & < "0.5" }
-  "tiny_httpd" { >= "0.12" & < "1.0" }
+  "tiny_httpd" { >= "0.16" & < "1.0" }
   "printbox" { >= "0.6" }
   "printbox-text" { >= "0.6" }
   "ocaml" {>= "4.12" }

diff --git a/src/server/benchpress_server.ml b/src/server/benchpress_server.ml
@@ -1684,6 +1684,11 @@ module Cmd = struct
           "0.0.0.0"
       in
       let server = H.create ~max_connections:32 ~addr ?port () in
+
+      let prometheus = Tiny_httpd_prometheus.(global) in
+      Tiny_httpd_prometheus.instrument_server server prometheus;
+      Tiny_httpd_prometheus.GC_metrics.create_and_update_before_emit prometheus;
+
       let data_dir = Misc.data_dir () in
       let self =
         {

diff --git a/src/server/dune b/src/server/dune
@@ -7,7 +7,7 @@
   (into ../../)
   (until-clean))
  (libraries benchpress containers cmdliner result uuidm logs logs.cli
-   tiny_httpd sqlite3_utils base64 printbox jemalloc)
+   tiny_httpd tiny_httpd.prometheus sqlite3_utils base64 printbox jemalloc)
  (flags :standard -warn-error -a+8 -safe-string -open Benchpress -linkall))
 
 (rule