feat cohttp: set 'accept' header as well

This commit is contained in:
Simon Cruanes 2025-09-15 12:25:04 -04:00
parent 9974d6a0b6
commit b2ef68536d
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4

View file

@ -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