Source file `tracing.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
(* This is so not thread-safe it's not even funny. *)

let src = Logs.Src.create "tls.tracing" ~doc:"TLS tracing"
module Log = (val Logs.src_log src : Logs.LOG)

let form_trace id sexp =
  let open Sexplib in
  Sexp.(List [ Atom id ; sexp ])

let sexp ~tag lz =
  Log.debug (fun m -> m "%a" Sexplib.Sexp.pp_hum (form_trace tag (Lazy.force lz)))

let sexps ~tag lzs = List.iter (sexp ~tag) lzs

let sexpf ~tag ~f x = sexp ~tag @@ lazy (f x)

let sexpfs ~tag ~f xs = List.iter (sexpf ~tag ~f) xs

let cs ~tag = sexpf ~tag ~f:(fun cs -> Cstruct.hexdump cs ; Sexplib.Sexp.Atom "")

let css ~tag css = List.iter (cs ~tag) css