simon/ocaml-opentelemetry
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-opentelemetry.git synced 2026-03-07 18:37:56 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix

Browse source
This commit is contained in:
Simon Cruanes 2025-10-30 22:36:57 -04:00
parent 51f783a578
commit 41d8b0c1a4
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/core/opentelemetry.ml
View file

@ -1223,7 +1223,9 @@ module Trace = struct
make_scope_spans ~scope:Globals.instrumentation_library ~spans ()
in
let attributes = Globals.mk_attributes ?service_name ?attrs () in
let resource = Proto.Resource.make_resource ~attributes () in
let resource =
Proto.Resource.make_resource ~entity_refs:[] ~attributes ()
in
make_resource_spans ~resource ~scope_spans:[ ils ] ()
(** Sync emitter.
@ -1387,7 +1389,7 @@ module Metrics = struct
(** Aggregation of a scalar metric, always with the current value *)
let gauge ~name ?description ?unit_ (l : number_data_point list) : t =
let data = Gauge (make_gauge ~data_points:l ()) in
make_metric ~name ?description ?unit_ ~data ()
make_metric ~metadata:[] ~name ?description ?unit_ ~data ()
type aggregation_temporality = Metrics.aggregation_temporality =
| Aggregation_temporality_unspecified
@ -1401,7 +1403,7 @@ module Metrics = struct
let data =
Sum (make_sum ~data_points:l ?is_monotonic ~aggregation_temporality ())
in
make_metric ~name ?description ?unit_ ~data ()
make_metric ~metadata:[] ~name ?description ?unit_ ~data ()
(** Histogram data
@param count number of values in population (non negative)
@ -1424,7 +1426,7 @@ module Metrics = struct
let data =
Histogram (make_histogram ~data_points:l ?aggregation_temporality ())
in
make_metric ~name ?description ?unit_ ~data ()
make_metric ~metadata:[] ~name ?description ?unit_ ~data ()
(* TODO: exponential history *)
(* TODO: summary *)
@ -1437,7 +1439,9 @@ module Metrics = struct
make_scope_metrics ~scope:Globals.instrumentation_library ~metrics:l ()
in
let attributes = Globals.mk_attributes ?service_name ?attrs () in
let resource = Proto.Resource.make_resource ~attributes () in
let resource =
Proto.Resource.make_resource ~entity_refs:[] ~attributes ()
in
make_resource_metrics ~scope_metrics:[ lm ] ~resource ()
(** Emit some metrics to the collector (sync). This blocks until the backend
@ -1568,7 +1572,9 @@ module Logs = struct
cause deadlocks. *)
let emit ?service_name ?attrs (l : t list) : unit =
let attributes = Globals.mk_attributes ?service_name ?attrs () in
let resource = Proto.Resource.make_resource ~attributes () in
let resource =
Proto.Resource.make_resource ~entity_refs:[] ~attributes ()
in
let ll =
make_scope_logs ~scope:Globals.instrumentation_library ~log_records:l ()
in