From 1ff96737db95d91b92bd5d45b5737ad33926aadc Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Mon, 12 Jun 2023 10:06:25 -0400 Subject: [PATCH] fix for trace 0.1 --- src/trace/opentelemetry_trace.ml | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/src/trace/opentelemetry_trace.ml b/src/trace/opentelemetry_trace.ml index 1881f1c8..16f4ccc4 100644 --- a/src/trace/opentelemetry_trace.ml +++ b/src/trace/opentelemetry_trace.ml @@ -138,6 +138,14 @@ let collector () : Trace.collector = let name_process _name = () let name_thread _name = () + + let counter_int name cur_val : unit = + let m = Otel.Metrics.(gauge ~name [ int cur_val ]) in + Otel.Metrics.emit [ m ] + + let counter_float name cur_val : unit = + let m = Otel.Metrics.(gauge ~name [ float cur_val ]) in + Otel.Metrics.emit [ m ] end in (module M)