simon/ocaml-opentelemetry
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-opentelemetry.git synced 2026-03-10 04:35:46 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

Allow spaces in header values

Browse source
This commit is contained in:
Anurag Soni 2022-11-04 22:43:42 -04:00
parent 812b3769c2
commit 7973cee9c0
2 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/client-cohttp-lwt/common_.ml
View file

@ -23,7 +23,11 @@ let get_url () = !url
let set_url s = url := s let set_url s = url := s
let parse_headers s = let parse_headers s =
let parse_header s = Scanf.sscanf s "%s@=%s" (fun key value -> key, value) in let parse_header s =
match String.split_on_char '=' s with
| [ key; value ] -> key, value
| _ -> failwith "Unexpected format for header"
in
String.split_on_char ',' s |> List.map parse_header String.split_on_char ',' s |> List.map parse_header
let default_headers = [] let default_headers = []

6
src/client-ocurl/common_.ml
View file

@ -28,7 +28,11 @@ let[@inline] with_mutex_ m f =
Fun.protect ~finally:(fun () -> Mutex.unlock m) f Fun.protect ~finally:(fun () -> Mutex.unlock m) f
let parse_headers s = let parse_headers s =
let parse_header s = Scanf.sscanf s "%s@=%s" (fun key value -> key, value) in let parse_header s =
match String.split_on_char '=' s with
| [ key; value ] -> key, value
| _ -> failwith "Unexpected format for header"
in
String.split_on_char ',' s |> List.map parse_header String.split_on_char ',' s |> List.map parse_header
let default_headers = [] let default_headers = []