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

metrics: do not add a default start_time_unix_nano

Browse source
This commit is contained in:
Simon Cruanes 2025-12-09 22:36:00 -05:00
parent 3eba3df59d
commit 4a61ab44d9
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 8 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/core/metrics.ml
View file

@ -20,19 +20,17 @@ open struct
end
(** Number data point, as a float *)
let float ?(start_time_unix_nano = _program_start)
?(now = Timestamp_ns.now_unix_ns ()) ?(attrs = []) (d : float) :
number_data_point =
let float ?start_time_unix_nano ?(now = Timestamp_ns.now_unix_ns ())
?(attrs = []) (d : float) : number_data_point =
let attributes = attrs |> List.map Key_value.conv in
make_number_data_point ~start_time_unix_nano ~time_unix_nano:now ~attributes
make_number_data_point ?start_time_unix_nano ~time_unix_nano:now ~attributes
~value:(As_double d) ()
(** Number data point, as an int *)
let int ?(start_time_unix_nano = _program_start)
?(now = Timestamp_ns.now_unix_ns ()) ?(attrs = []) (i : int) :
number_data_point =
let int ?start_time_unix_nano ?(now = Timestamp_ns.now_unix_ns ()) ?(attrs = [])
(i : int) : number_data_point =
let attributes = attrs |> List.map Key_value.conv in
make_number_data_point ~start_time_unix_nano ~time_unix_nano:now ~attributes
make_number_data_point ?start_time_unix_nano ~time_unix_nano:now ~attributes
~value:(As_int (Int64.of_int i))
()
@ -62,12 +60,12 @@ let sum ~name ?description ?unit_
count value of histogram for each bucket. Sum of the counts must be equal
to [count]. length must be [1+length explicit_bounds]
@param explicit_bounds strictly increasing list of bounds for the buckets *)
let histogram_data_point ?(start_time_unix_nano = _program_start)
let histogram_data_point ?start_time_unix_nano
?(now = Timestamp_ns.now_unix_ns ()) ?(attrs = []) ?(exemplars = [])
?(explicit_bounds = []) ?sum ~bucket_counts ~count () : histogram_data_point
=
let attributes = attrs |> List.map Key_value.conv in
make_histogram_data_point ~start_time_unix_nano ~time_unix_nano:now
make_histogram_data_point ?start_time_unix_nano ~time_unix_nano:now
~attributes ~exemplars ~bucket_counts ~explicit_bounds ~count ?sum ()
let histogram ~name ?description ?unit_ ?aggregation_temporality