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

Merge pull request #29 from anuragsoni/update-header-parsing

Browse source 
Allow spaces in header values set via `OTEL_EXPORTER_OTLP_HEADERS`
This commit is contained in:
Matt Bray 2022-11-05 10:02:36 +00:00 • committed by GitHub
commit 9239dbe934
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
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 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
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
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
let default_headers = []