mirror of
https://github.com/ocaml-tracing/ocaml-opentelemetry.git
synced 2026-03-08 20:07:55 -04:00
34 lines
1.3 KiB
OCaml
34 lines
1.3 KiB
OCaml
(** Group signals into [resource_xxx] objects *)
|
|
|
|
open Common_
|
|
|
|
let make_resource_logs (logs : Proto.Logs.log_record list) :
|
|
Proto.Logs.resource_logs =
|
|
let attributes = OTEL.Globals.mk_attributes () in
|
|
let resource = Proto.Resource.make_resource ~attributes () in
|
|
let ll =
|
|
Proto.Logs.make_scope_logs ~scope:OTEL.Globals.instrumentation_library
|
|
~log_records:logs ()
|
|
in
|
|
Proto.Logs.make_resource_logs ~resource ~scope_logs:[ ll ] ()
|
|
|
|
let make_resource_spans ?service_name ?attrs spans : Proto.Trace.resource_spans
|
|
=
|
|
let ils =
|
|
Proto.Trace.make_scope_spans ~scope:OTEL.Globals.instrumentation_library
|
|
~spans ()
|
|
in
|
|
let attributes = OTEL.Globals.mk_attributes ?service_name ?attrs () in
|
|
let resource = Proto.Resource.make_resource ~attributes () in
|
|
Proto.Trace.make_resource_spans ~resource ~scope_spans:[ ils ] ()
|
|
|
|
(** Aggregate metrics into a {!Proto.Metrics.resource_metrics} *)
|
|
let make_resource_metrics ?service_name ?attrs (l : OTEL.Metrics.t list) :
|
|
Proto.Metrics.resource_metrics =
|
|
let open Proto.Metrics in
|
|
let lm =
|
|
make_scope_metrics ~scope:OTEL.Globals.instrumentation_library ~metrics:l ()
|
|
in
|
|
let attributes = OTEL.Globals.mk_attributes ?service_name ?attrs () in
|
|
let resource = Proto.Resource.make_resource ~attributes () in
|
|
Proto.Metrics.make_resource_metrics ~scope_metrics:[ lm ] ~resource ()
|