fix

Author: c-cube

src/core/opentelemetry.ml

@@ -1219,7 +1219,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.
@@ -1383,7 +1385,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
@@ -1397,7 +1399,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)
@@ -1420,7 +1422,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 *)
@@ -1433,7 +1435,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
@@ -1564,7 +1568,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