From ba6861630dc118b28409c36bbc903f8cc2c76e8e Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Thu, 22 Aug 2024 15:31:01 -0400
Subject: [PATCH] fix trace-tef.tldr: turn TEF path to an absolute one

---
 src/tef-tldr/trace_tef_tldr.ml | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/tef-tldr/trace_tef_tldr.ml b/src/tef-tldr/trace_tef_tldr.ml
index a712cf2..978c5f2 100644
--- a/src/tef-tldr/trace_tef_tldr.ml
+++ b/src/tef-tldr/trace_tef_tldr.ml
@@ -64,6 +64,13 @@ let find_role ~out () : role =
     Some { trace_id; emit_tef_at_exit = None; socket = get_unix_socket () }
   | None ->
     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
       Unix.putenv env_var_trace_id trace_id;
       { trace_id; emit_tef_at_exit = Some path; socket = get_unix_socket () }