Source file `any_signal.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
(** Any kind of signal *)

open Common_

type t =
  | Span of Span.t
  | Metric of Metrics.t
  | Log of Log_record.t

let pp out = function
  | Span s -> Proto.Trace.pp_span out s
  | Metric m -> Proto.Metrics.pp_metric out m
  | Log l -> Proto.Logs.pp_log_record out l