From 0099bc5439cb627ab409744b21e517a6c7056c75 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Mon, 12 Jan 2026 21:09:58 -0500 Subject: [PATCH] compat 4.08 --- tests/client_e2e/clients_e2e_lib.ml | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/tests/client_e2e/clients_e2e_lib.ml b/tests/client_e2e/clients_e2e_lib.ml index 35e75c82..1ced783f 100644 --- a/tests/client_e2e/clients_e2e_lib.ml +++ b/tests/client_e2e/clients_e2e_lib.ml @@ -32,11 +32,11 @@ let signals_from_batch (signal_batch : Client.Resource_signal.t) = let filter_map_spans f signals = signals - |> List.concat_map (function + |> CCList.flat_map (function | `Log _ | `Metric _ -> [] | `Trace (r : Proto.Trace.resource_spans) -> r.scope_spans - |> List.concat_map (fun ss -> + |> CCList.flat_map (fun ss -> ss.Proto.Trace.spans |> List.filter_map f)) let count_spans_with_name name signals = @@ -50,11 +50,11 @@ let count_spans_with_name name signals = let filter_map_metrics f signals = signals - |> List.concat_map (function + |> CCList.flat_map (function | `Log _ | `Trace _ -> [] | `Metric (r : Proto.Metrics.resource_metrics) -> r.scope_metrics - |> List.concat_map (fun ss -> + |> CCList.flat_map (fun ss -> ss.Proto.Metrics.metrics |> List.filter_map f)) let count_metrics_with_name name signals = @@ -91,11 +91,11 @@ let get_metric_values name signals = let filter_map_logs (f : Proto.Logs.log_record -> 'a option) signals : 'a list = signals - |> List.concat_map (function + |> CCList.flat_map (function | `Metric _ | `Trace _ -> [] | `Log (r : Proto.Logs.resource_logs) -> r.scope_logs - |> List.concat_map (fun ss -> + |> CCList.flat_map (fun ss -> ss.Proto.Logs.log_records |> List.filter_map f)) let count_logs_with_body p signals =