simon/ocaml-opentelemetry
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-opentelemetry.git synced 2026-03-07 18:37:56 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

grrr cohttp and its signature breakages

Browse source
This commit is contained in:
Simon Cruanes 2026-02-26 10:42:23 -05:00
parent 9cf2374930
commit edc3932059
1 changed files with 3 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
src/integrations/cohttp/opentelemetry_cohttp_lwt.ml
View file

@ -143,23 +143,9 @@ let client ?(scope : Otel.Scope.t option) (module C : Cohttp_lwt.S.Client) =
let module Traced = struct let module Traced = struct
open Lwt.Syntax open Lwt.Syntax
(* These types and values are not customized by our client, but are required to satisfy (* These types and values are not customized by our client, but are required to satisfy
[Cohttp_lwt.S.Client]. *) [Cohttp_lwt.S.Client]. *)
include ( include C
C :
sig
type ctx = C.ctx
type 'a io = 'a C.io
type 'a with_context = 'a C.with_context
type body = C.body
val map_context : 'a with_context -> ('a -> 'b) -> 'b with_context
val set_cache : Cohttp_lwt.S.call -> unit
end)
let attrs_for ~uri ~meth:_ () = let attrs_for ~uri ~meth:_ () =
[ [