Merge pull request #109 from tatchi/fmt

fmt

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
+(** [push b xs] is [`Ok] if it succeeds in pushing the values in [xs] into the
-    [b], or [`Dropped] if the current size of the batch has exceeded the high water
+    batch [b], or [`Dropped] if the current size of the batch has exceeded the
-    mark determined by the [batch] argument to [{!make}]. ) *)
+    high water mark determined by the [batch] argument to [{!make}]. ) *)

src/integrations/cohttp/opentelemetry_cohttp_lwt.ml

@@ -145,12 +145,19 @@ 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
+    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)
 

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))
-
-

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
+ (libraries opentelemetry opentelemetry-logs signal_gatherer alcotest)
-   opentelemetry
+ (deps %{bin:emit_logs_cohttp}))
-   opentelemetry-logs
-   signal_gatherer
-   alcotest)
-  (deps %{bin:emit_logs_cohttp})
-)