1
2
3
4
5
6
7
8
9
open Common_
open Proto.Trace
type t = span_event
let make ?(time_unix_nano = Clock.now_main ()) ?(attrs = []) (name : string) : t
=
let attrs = List.map Key_value.conv attrs in
make_span_event ~time_unix_nano ~name ~attributes:attrs ()