simon/ocaml-opentelemetry
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-opentelemetry.git synced 2026-03-08 03:47:59 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

trace-collector: Pass user-data to OTel metrics

Browse source
This commit is contained in:
Elliott Cable 2023-09-20 15:14:10 +00:00
parent ed90772a57
commit 76c18c55c2
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/trace/opentelemetry_trace.ml
View file

@ -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