simon/ocaml-trace
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-trace.git synced 2026-03-08 03:47:57 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix build

Browse source
This commit is contained in:
Simon Cruanes 2023-12-17 23:03:49 -05:00
parent 2d3eee8cb4
commit d5cd24d8ed
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/tef/trace_tef.ml
View file

@ -257,18 +257,18 @@ module Writer = struct
Hints: https://docs.google.com/document/d/15BB-suCb9j-nFt55yCFJBJCGzLg2qUm3WaSOPb8APtI/
*)
let emit_enter_context ~tid ~name ~ts (self : t) : unit =
emit_sep_ self;
Printf.fprintf self.oc
emit_sep_and_start_ self;
Printf.bprintf self.buf
{json|{"pid":%d,"tid":%d,"ts":%.2f,"name":%a,"ph":"b"}|json} self.pid tid
ts str_val name;
()
Buffer.output_buffer self.oc self.buf
let emit_exit_context ~tid ~name ~ts (self : t) : unit =
emit_sep_ self;
Printf.fprintf self.oc
emit_sep_and_start_ self;
Printf.bprintf self.buf
{json|{"pid":%d,"tid":%d,"ts":%.2f,"name":%a,"ph":"e"}|json} self.pid tid
ts str_val name;
()
Buffer.output_buffer self.oc self.buf
let emit_name_thread ~tid ~name (self : t) : unit =
emit_sep_and_start_ self;