Fix CI

cohttp-async/src/server.ml

@@ -87,14 +87,14 @@ let handle_client handle_request sock rd wr =
             Body.drain body >>| fun () -> Ivar.fill_if_empty finished ()
         | `Response (req, body, (res, res_body)) ->
             (* There are scenarios if a client leaves before consuming the full response,
-            we might have a reference to an async Pipe that doesn't get drained.
+               we might have a reference to an async Pipe that doesn't get drained.
 
-               Not draining or closing a pipe can lead to issues if its holding a resource like
-               a file handle as those resources will never be closed, leading to a leak.
+                  Not draining or closing a pipe can lead to issues if its holding a resource like
+                  a file handle as those resources will never be closed, leading to a leak.
 
-               Async writers have a promise that's fulfilled whenever they are closed,
-               so we can use it to schedule a close operation on the stream to ensure that we
-               don't leave a stream open if the underlying channels are closed. *)
+                  Async writers have a promise that's fulfilled whenever they are closed,
+                  so we can use it to schedule a close operation on the stream to ensure that we
+                  don't leave a stream open if the underlying channels are closed. *)
             (match res_body with
             | `Empty | `String _ | `Strings _ -> ()
             | `Pipe stream ->

cohttp-async/test/test_async_integration.ml

@@ -111,7 +111,8 @@ let ts =
             ("Pipe with empty strings", Pipe.of_list [ ""; ""; "" ], true);
           ]
         in
-        Deferred.List.iter ~how:`Sequential tests ~f:(fun (msg, pipe, expected) ->
+        Deferred.List.iter ~how:`Sequential tests 
+           ~f:(fun (msg, pipe, expected) ->
             is_empty (`Pipe pipe) >>| fun real ->
             assert_equal ~msg expected real)
         >>= fun () ->

cohttp-lwt-unix/bin/dune

@@ -1,14 +1,6 @@
 (executables
  (names cohttp_curl_lwt cohttp_proxy_lwt cohttp_server_lwt)
- (libraries
-  cohttp-lwt-unix
-  cohttp_server
-  logs
-  logs.lwt
-  logs.fmt
-  logs.cli
-  cmdliner
-  conduit-lwt
-  fmt.tty)
+ (libraries cohttp-lwt-unix cohttp_server logs logs.lwt logs.fmt logs.cli
+   cmdliner conduit-lwt fmt.tty)
  (package cohttp-lwt-unix)
  (public_names cohttp-curl-lwt cohttp-proxy-lwt cohttp-server-lwt))

examples/async/dune

@@ -1,6 +1,7 @@
 (executables
  (names hello_world receive_post s3_cp)
- (libraries mirage-crypto cohttp-async base async_kernel core_unix.command_unix))
+ (libraries mirage-crypto cohttp-async base async_kernel 
+   core_unix.command_unix))
 
 (alias
  (name runtest)

examples/async/s3_cp.ml

@@ -44,7 +44,6 @@ open Core
 open Async
 open Cohttp
 open Cohttp_async
-
 module Time = Time_float
 
 let ksrt (k, _) (k', _) = String.compare k k'