diff --git a/src/client/batch.mli b/src/client/batch.mli index 8bd410fd..a7ed2aa9 100644 --- a/src/client/batch.mli +++ b/src/client/batch.mli @@ -47,6 +47,6 @@ val pop_if_ready : ?force:bool -> now:Mtime.t -> 'a t -> 'a list option batches before exit or because the user asks for it *) val push : 'a t -> 'a list -> [ `Dropped | `Ok ] -(** [push b xs] is [`Ok] if it succeeds in pushing the values in [xs] into the batch - [b], or [`Dropped] if the current size of the batch has exceeded the high water - mark determined by the [batch] argument to [{!make}]. ) *) +(** [push b xs] is [`Ok] if it succeeds in pushing the values in [xs] into the + batch [b], or [`Dropped] if the current size of the batch has exceeded the + high water mark determined by the [batch] argument to [{!make}]. ) *) diff --git a/src/integrations/cohttp/opentelemetry_cohttp_lwt.ml b/src/integrations/cohttp/opentelemetry_cohttp_lwt.ml index 67272d36..ad670b5c 100644 --- a/src/integrations/cohttp/opentelemetry_cohttp_lwt.ml +++ b/src/integrations/cohttp/opentelemetry_cohttp_lwt.ml @@ -145,14 +145,21 @@ let client ?(scope : Otel.Scope.t option) (module C : Cohttp_lwt.S.Client) = (* 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) + 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) let attrs_for ~uri ~meth:_ () = [ diff --git a/tests/bin/dune b/tests/bin/dune index a98e0b21..475f7c04 100644 --- a/tests/bin/dune +++ b/tests/bin/dune @@ -46,8 +46,7 @@ opentelemetry-client-cohttp-lwt opentelemetry-cohttp-lwt opentelemetry-logs - logs -)) + logs)) (executable (name cohttp_client) @@ -57,5 +56,3 @@ opentelemetry opentelemetry-client-cohttp-lwt opentelemetry-cohttp-lwt)) - - diff --git a/tests/logs/dune b/tests/logs/dune index 5702037c..d41d8040 100644 --- a/tests/logs/dune +++ b/tests/logs/dune @@ -3,16 +3,10 @@ ; Make the binaries for the test emitters available on the path for the components defined in this dir. ; See https://dune.readthedocs.io/en/stable/reference/dune/env.html (binaries - (../bin/emit_logs_cohttp.exe as emit_logs_cohttp) - ))) + (../bin/emit_logs_cohttp.exe as emit_logs_cohttp)))) (tests (names test_logs_e2e) (package opentelemetry-logs) - (libraries - opentelemetry - opentelemetry-logs - signal_gatherer - alcotest) - (deps %{bin:emit_logs_cohttp}) -) + (libraries opentelemetry opentelemetry-logs signal_gatherer alcotest) + (deps %{bin:emit_logs_cohttp}))