Runtime_events.Type
type 'a t
val unit : unit t
type span =
| Begin
| End
val span : span t
val int : int t
val register : encode:(bytes -> 'a -> int) -> decode:(bytes -> int -> 'a) -> 'a t