Source file `span_status.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
open Common_
open Proto.Trace

type t = Proto.Trace.status = private {
  mutable _presence: Pbrt.Bitfield.t;
  mutable message: string;
  mutable code: status_status_code;
}

type code = status_status_code =
  | Status_code_unset
  | Status_code_ok
  | Status_code_error

let[@inline] make ~message ~code : t = make_status ~message ~code ()