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

remove unused config parameter

Browse source
This commit is contained in:
Corentin Leruth 2024-08-09 08:04:08 +02:00
parent 8aafa45896
commit f0dd5a7a35
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -72,7 +72,6 @@ module Httpc : sig
val send :
t ->
config:Config.t ->
url:string ->
decode:[ `Dec of Pbrt.Decoder.t -> 'a | `Ret of 'a ] ->
string ->
@ -91,8 +90,7 @@ end = struct
let cleanup _self = ()
(* send the content to the remote endpoint/path *)
let send (_self : t) ~(config : Config.t) ~url ~decode (bod : string) :
('a, error) result Lwt.t =
let send (_self : t) ~url ~decode (bod : string) : ('a, error) result Lwt.t =
let uri = Uri.of_string url in
let open Cohttp in
@ -288,7 +286,7 @@ let mk_emitter ~stop ~(config : Config.t) () : (module EMITTER) =
Pbrt.Encoder.reset encoder;
encode x encoder;
let data = Pbrt.Encoder.to_string encoder in
let* r = Httpc.send httpc ~config ~url ~decode:(`Ret ()) data in
let* r = Httpc.send httpc ~url ~decode:(`Ret ()) data in
match r with
| Ok () -> Lwt.return ()
| Error `Sysbreak ->