From b2ef68536d419f50fb766c12eb8a48ea7b52b721 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Mon, 15 Sep 2025 12:25:04 -0400 Subject: [PATCH] feat cohttp: set 'accept' header as well --- src/client-cohttp-lwt/opentelemetry_client_cohttp_lwt.ml | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/client-cohttp-lwt/opentelemetry_client_cohttp_lwt.ml b/src/client-cohttp-lwt/opentelemetry_client_cohttp_lwt.ml index 82c4f65b..c13f2fd7 100644 --- a/src/client-cohttp-lwt/opentelemetry_client_cohttp_lwt.ml +++ b/src/client-cohttp-lwt/opentelemetry_client_cohttp_lwt.ml @@ -106,7 +106,12 @@ end = struct let open Cohttp in let headers = Header.(add_list (init ()) (Config.Env.get_headers ())) in let headers = - Header.(add headers "Content-Type" "application/x-protobuf") + Header.( + add_list headers + [ + "Content-Type", "application/x-protobuf"; + "Accept", "application/x-protobuf"; + ]) in let body = Cohttp_lwt.Body.of_string bod in