simon/ocaml-opentelemetry
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-opentelemetry.git synced 2026-03-11 21:18:33 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

chore: add Trace_id.pp and Span_id.pp

Browse source
This commit is contained in:
Matt Bray 2022-05-03 17:26:53 +01:00
parent 0dd97663b6
commit 028d5ece71
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/opentelemetry.ml
View file

@ -215,6 +215,7 @@ end
module Trace_id : sig module Trace_id : sig
type t type t
val create : unit -> t val create : unit -> t
val pp : Format.formatter -> t -> unit
val to_bytes : t -> bytes val to_bytes : t -> bytes
val of_bytes : bytes -> t val of_bytes : bytes -> t
val to_hex : t -> string val to_hex : t -> string
@ -227,12 +228,14 @@ end = struct
let of_bytes b = if Bytes.length b=16 then b else raise (Invalid_argument "trace IDs must be 16 bytes in length") let of_bytes b = if Bytes.length b=16 then b else raise (Invalid_argument "trace IDs must be 16 bytes in length")
let to_hex self = Util_.bytes_to_hex self let to_hex self = Util_.bytes_to_hex self
let of_hex s = of_bytes (Util_.bytes_of_hex s) let of_hex s = of_bytes (Util_.bytes_of_hex s)
let pp fmt t = Format.fprintf fmt "%s" (to_hex t)
end end
(** Unique ID of a span. *) (** Unique ID of a span. *)
module Span_id : sig module Span_id : sig
type t type t
val create : unit -> t val create : unit -> t
val pp : Format.formatter -> t -> unit
val to_bytes : t -> bytes val to_bytes : t -> bytes
val of_bytes : bytes -> t val of_bytes : bytes -> t
val to_hex : t -> string val to_hex : t -> string
@ -245,6 +248,7 @@ end = struct
let of_bytes b = if Bytes.length b=8 then b else raise (Invalid_argument "span IDs must be 8 bytes in length") let of_bytes b = if Bytes.length b=8 then b else raise (Invalid_argument "span IDs must be 8 bytes in length")
let to_hex self = Util_.bytes_to_hex self let to_hex self = Util_.bytes_to_hex self
let of_hex s = of_bytes (Util_.bytes_of_hex s) let of_hex s = of_bytes (Util_.bytes_of_hex s)
let pp fmt t = Format.fprintf fmt "%s" (to_hex t)
end end
(** {2 Attributes and conventions} *) (** {2 Attributes and conventions} *)