From 3997b9a9b3189363b363cacb45091e84a26ee1bb Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Tue, 9 Dec 2025 21:25:22 +0000 Subject: [PATCH 1/2] dev Signed-off-by: Rudi Grinberg From 057fe2142bee6870f2efc9ca9f0feb1f0fce1057 Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Thu, 11 Dec 2025 00:43:40 +0000 Subject: [PATCH 2/2] feature: add dune root to config event Signed-off-by: Rudi Grinberg --- doc/changes/added/12922.md | 1 + src/dune_trace/dune_trace.ml | 1 + 2 files changed, 2 insertions(+) create mode 100644 doc/changes/added/12922.md diff --git a/doc/changes/added/12922.md b/doc/changes/added/12922.md new file mode 100644 index 00000000000..d9da313bdaf --- /dev/null +++ b/doc/changes/added/12922.md @@ -0,0 +1 @@ +- Add the workspace root to the config trace event (#12922, @rgrinberg) diff --git a/src/dune_trace/dune_trace.ml b/src/dune_trace/dune_trace.ml index 43f4ef219e2..cbf3347b550 100644 --- a/src/dune_trace/dune_trace.ml +++ b/src/dune_trace/dune_trace.ml @@ -140,6 +140,7 @@ module Event = struct [ "build_dir", `String (Path.Build.to_string Path.Build.root) ; "argv", `List (Array.to_list Sys.argv |> List.map ~f:Json.string) ; "env", `List (Unix.environment () |> Array.to_list |> List.map ~f:Json.string) + ; "root", `String Path.(to_absolute_filename root) ] in match version with