From 14ac07660db22af31a1a726818db21dbdab35417 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Thu, 26 Feb 2026 10:42:23 -0500 Subject: [PATCH] grrr cohttp and its signature breakages --- .../cohttp/opentelemetry_cohttp_lwt.ml | 20 +++---------------- 1 file changed, 3 insertions(+), 17 deletions(-) diff --git a/src/integrations/cohttp/opentelemetry_cohttp_lwt.ml b/src/integrations/cohttp/opentelemetry_cohttp_lwt.ml index ad670b5c..3755691f 100644 --- a/src/integrations/cohttp/opentelemetry_cohttp_lwt.ml +++ b/src/integrations/cohttp/opentelemetry_cohttp_lwt.ml @@ -143,23 +143,9 @@ let client ?(scope : Otel.Scope.t option) (module C : Cohttp_lwt.S.Client) = let module Traced = struct open Lwt.Syntax - (* These types and values are not customized by our client, but are required to satisfy - [Cohttp_lwt.S.Client]. *) - include ( - 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) + (* These types and values are not customized by our client, but are required to satisfy + [Cohttp_lwt.S.Client]. *) + include C let attrs_for ~uri ~meth:_ () = [