simon/ocaml-trace
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-trace.git synced 2026-03-07 18:37:56 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix trace-tef.tldr: turn TEF path to an absolute one

Browse source
This commit is contained in:
Simon Cruanes 2024-08-22 15:31:01 -04:00
parent 3f28b8032a
commit ba6861630d
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/tef-tldr/trace_tef_tldr.ml
View file

@ -64,6 +64,13 @@ let find_role ~out () : role =
Some { trace_id; emit_tef_at_exit = None; socket = get_unix_socket () } Some { trace_id; emit_tef_at_exit = None; socket = get_unix_socket () }
| None -> | None ->
let write_to_file path = let write_to_file path =
(* normalize path so the daemon knows what we're talking about *)
let path =
if Filename.is_relative path then
Filename.concat (Unix.getcwd ()) path
else
path
in
let trace_id = create_trace_id () in let trace_id = create_trace_id () in
Unix.putenv env_var_trace_id trace_id; Unix.putenv env_var_trace_id trace_id;
{ trace_id; emit_tef_at_exit = Some path; socket = get_unix_socket () } { trace_id; emit_tef_at_exit = Some path; socket = get_unix_socket () }