From 76c18c55c2ed484766ac8693b9f3107e0e65bb1e Mon Sep 17 00:00:00 2001 From: Elliott Cable Date: Wed, 20 Sep 2023 15:14:10 +0000 Subject: [PATCH] trace-collector: Pass user-data to OTel metrics --- src/trace/opentelemetry_trace.ml | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/src/trace/opentelemetry_trace.ml b/src/trace/opentelemetry_trace.ml index b7a6162d..892fdb9f 100644 --- a/src/trace/opentelemetry_trace.ml +++ b/src/trace/opentelemetry_trace.ml @@ -248,12 +248,14 @@ module Internal = struct let name_thread _name = () - let counter_int ~data:_ name cur_val : unit = - let m = Otel.Metrics.(gauge ~name [ int cur_val ]) in + let counter_int ~data name cur_val : unit = + let _kind, attrs = otel_attrs_of_otrace_data data in + let m = Otel.Metrics.(gauge ~name [ int ~attrs cur_val ]) in Otel.Metrics.emit [ m ] - let counter_float ~data:_ name cur_val : unit = - let m = Otel.Metrics.(gauge ~name [ float cur_val ]) in + let counter_float ~data name cur_val : unit = + let _kind, attrs = otel_attrs_of_otrace_data data in + let m = Otel.Metrics.(gauge ~name [ float ~attrs cur_val ]) in Otel.Metrics.emit [ m ] end end