robur/http-mirage-client
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

lowercase header names in http2

Browse source
This commit is contained in:
Hannes Mehnert 2023-07-03 20:01:00 +02:00
parent f0eec8add4
commit 87457cda40
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/http_mirage_client.ml
View file

@ -204,7 +204,8 @@ let single_http_1_1_request
; finished ; finished
let prepare_h2_headers headers host user_pass body_length = let prepare_h2_headers headers host user_pass body_length =
let headers = H2.Headers.of_list headers in let headers = List.rev_map (fun (k, v) -> (String.lowercase_ascii k, v)) headers in
let headers = H2.Headers.of_rev_list headers in
let add hdr = H2.Headers.add_unless_exists hdr ?sensitive:None in let add hdr = H2.Headers.add_unless_exists hdr ?sensitive:None in
let headers = add headers ":authority" host in let headers = add headers ":authority" host in
let headers = let headers =