chore: apply ocamlformat

async/h2_async.mli

@@ -46,8 +46,8 @@ module Server : sig
       H2_async_intf.Server
         with type 'a socket := 'a Gluten_async.Server.SSL.socket
 
-    val create_connection_handler_with_default
-      :  certfile:string
+    val create_connection_handler_with_default :
+       certfile:string
       -> keyfile:string
       -> ?config:Config.t
       -> request_handler:('a -> Server_connection.request_handler)
@@ -69,8 +69,8 @@ module Client : sig
       H2_async_intf.Client
         with type 'a socket = 'a Gluten_async.Client.SSL.socket
 
-    val create_connection_with_default
-      :  ?config:Config.t
+    val create_connection_with_default :
+       ?config:Config.t
       -> ?push_handler:
            (Request.t -> (Client_connection.response_handler, unit) result)
       -> error_handler:Client_connection.error_handler
@@ -83,8 +83,8 @@ module Client : sig
       H2_async_intf.Client
         with type 'a socket = 'a Gluten_async.Client.TLS.socket
 
-    val create_connection_with_default
-      :  ?config:Config.t
+    val create_connection_with_default :
+       ?config:Config.t
       -> ?push_handler:
            (Request.t -> (Client_connection.response_handler, unit) result)
       -> error_handler:Client_connection.error_handler

async/h2_async_intf.ml

@@ -36,8 +36,8 @@ open H2
 module type Server = sig
   type 'a socket constraint 'a = [< Socket.Address.t ]
 
-  val create_connection_handler
-    :  ?config:Config.t
+  val create_connection_handler :
+     ?config:Config.t
     -> request_handler:('a -> Server_connection.request_handler)
     -> error_handler:('a -> Server_connection.error_handler)
     -> 'a
@@ -54,25 +54,25 @@ module type Client = sig
     ; runtime : 'a runtime
     }
 
-  val create_connection
-    :  ?config:Config.t
+  val create_connection :
+     ?config:Config.t
     -> ?push_handler:
          (Request.t -> (Client_connection.response_handler, unit) result)
     -> error_handler:Client_connection.error_handler
     -> 'a socket
     -> 'a t Deferred.t
 
-  val request
-    :  'a t
+  val request :
+     'a t
     -> ?flush_headers_immediately:bool
     -> ?trailers_handler:Client_connection.trailers_handler
     -> Request.t
     -> error_handler:Client_connection.error_handler
     -> response_handler:Client_connection.response_handler
     -> Body.Writer.t
 
-  val ping
-    :  _ t
+  val ping :
+     _ t
     -> ?payload:Bigstringaf.t
     -> ?off:int
     -> ((unit, [ `EOF ]) result -> unit)

eio/h2_eio.mli

@@ -31,8 +31,8 @@
  *---------------------------------------------------------------------------*)
 
 module Server : sig
-  val create_connection_handler
-    :  ?config:H2.Config.t
+  val create_connection_handler :
+     ?config:H2.Config.t
     -> request_handler:(Eio.Net.Sockaddr.stream -> H2.Reqd.t -> unit)
     -> error_handler:
          (Eio.Net.Sockaddr.stream -> H2.Server_connection.error_handler)
@@ -47,26 +47,26 @@ module Client : sig
     ; runtime : Gluten_eio.Client.t
     }
 
-  val create_connection
-    :  ?config:H2.Config.t
+  val create_connection :
+     ?config:H2.Config.t
     -> ?push_handler:
          (H2.Request.t -> (H2.Client_connection.response_handler, unit) result)
     -> sw:Eio.Switch.t
     -> error_handler:H2.Client_connection.error_handler
     -> Eio.Flow.two_way
     -> t
 
-  val request
-    :  t
+  val request :
+     t
     -> ?flush_headers_immediately:bool
     -> ?trailers_handler:H2.Client_connection.trailers_handler
     -> H2.Request.t
     -> error_handler:H2.Client_connection.error_handler
     -> response_handler:H2.Client_connection.response_handler
     -> H2.Body.Writer.t
 
-  val ping
-    :  ?payload:Bigstringaf.t
+  val ping :
+     ?payload:Bigstringaf.t
     -> ?off:int
     -> t
     -> (unit, [ `EOF ]) result Eio.Promise.t

examples/alpn/lib/h2_handler.ml

@@ -18,9 +18,12 @@ let request_handler : Unix.sockaddr -> Reqd.t -> unit =
     response
     "Welcome to an ALPN-negotiated HTTP/2 connection"
 
-let error_handler
-    :  Unix.sockaddr -> ?request:H2.Request.t -> _
-    -> (Headers.t -> Body.Writer.t) -> unit
+let error_handler :
+     Unix.sockaddr
+    -> ?request:H2.Request.t
+    -> _
+    -> (Headers.t -> Body.Writer.t)
+    -> unit
   =
  fun _client_address ?request:_ _error start_response ->
   let response_body = start_response Headers.empty in

examples/alpn/lib/http1_handler.ml

@@ -11,8 +11,11 @@ let redirect_handler : Unix.sockaddr -> Reqd.t Gluten.reqd -> unit =
   in
   Reqd.respond_with_string reqd response ""
 
-let redirect_error_handler
-    :  Unix.sockaddr -> ?request:Request.t -> _ -> (Headers.t -> Body.Writer.t)
+let redirect_error_handler :
+     Unix.sockaddr
+    -> ?request:Request.t
+    -> _
+    -> (Headers.t -> Body.Writer.t)
     -> unit
   =
  fun _client_address ?request:_ _error start_response ->
@@ -39,8 +42,11 @@ let request_handler : Unix.sockaddr -> Reqd.t Gluten.reqd -> unit =
   in
   Reqd.respond_with_string reqd response response_body
 
-let error_handler
-    :  Unix.sockaddr -> ?request:Request.t -> _ -> (Headers.t -> Body.Writer.t)
+let error_handler :
+     Unix.sockaddr
+    -> ?request:Request.t
+    -> _
+    -> (Headers.t -> Body.Writer.t)
     -> unit
   =
  fun _client_address ?request:_ _error start_response ->

examples/alpn/mirage/h2_handler.ml

@@ -18,8 +18,8 @@ let request_handler : Reqd.t -> unit =
     response
     "Welcome to an ALPN-negotiated HTTP/2 connection"
 
-let error_handler
-    : ?request:H2.Request.t -> _ -> (Headers.t -> Body.Writer.t) -> unit
+let error_handler :
+    ?request:H2.Request.t -> _ -> (Headers.t -> Body.Writer.t) -> unit
   =
  fun ?request:_ _error start_response ->
   let response_body = start_response Headers.empty in

examples/alpn/mirage/http1_handler.ml

@@ -11,8 +11,8 @@ let redirect_handler : Reqd.t Gluten.reqd -> unit =
   in
   Reqd.respond_with_string reqd response ""
 
-let redirect_error_handler
-    : ?request:Request.t -> _ -> (Headers.t ->  Body.Writer.t) -> unit
+let redirect_error_handler :
+    ?request:Request.t -> _ -> (Headers.t -> Body.Writer.t) -> unit
   =
  fun ?request:_ _error start_response ->
   let response_body = start_response Headers.empty in
@@ -38,8 +38,8 @@ let request_handler : Reqd.t Gluten.reqd -> unit =
   in
   Reqd.respond_with_string reqd response response_body
 
-let error_handler
-    : ?request:Request.t -> _ -> (Headers.t -> Body.Writer.t) -> unit
+let error_handler :
+    ?request:Request.t -> _ -> (Headers.t -> Body.Writer.t) -> unit
   =
  fun ?request:_ _error start_response ->
   let response_body = start_response Headers.empty in

examples/lwt/lwt_echo_server2.ml

@@ -110,9 +110,12 @@ let connection_handler : Unix.sockaddr -> Lwt_unix.file_descr -> unit Lwt.t =
         (Response.create `Method_not_allowed)
         "Hello, Sean."
   in
-  let error_handler
-      :  Unix.sockaddr -> ?request:H2.Request.t -> _
-      -> (Headers.t -> Body.Writer.t) -> unit
+  let error_handler :
+       Unix.sockaddr
+      -> ?request:H2.Request.t
+      -> _
+      -> (Headers.t -> Body.Writer.t)
+      -> unit
     =
    fun _client_address ?request:_ error start_response ->
     let response_body = start_response Headers.empty in

examples/lwt/lwt_h2c.ml

@@ -3,8 +3,9 @@ open Lwt.Infix
 module Http2 = struct
   open H2
 
-  let connection_handler
-      :  Httpaf.Request.t -> Bigstringaf.t H2.IOVec.t list
+  let connection_handler :
+       Httpaf.Request.t
+      -> Bigstringaf.t H2.IOVec.t list
       -> (Server_connection.t, string) result
     =
     let request_handler : H2.Server_connection.request_handler =

examples/lwt/lwt_https_server.ml

@@ -74,9 +74,12 @@ let connection_handler : Unix.sockaddr -> Lwt_unix.file_descr -> unit Lwt.t =
         (Response.create `Method_not_allowed)
         ""
   in
-  let error_handler
-      :  Unix.sockaddr -> ?request:H2.Request.t -> _
-      -> (Headers.t -> Body.Writer.t) -> unit
+  let error_handler :
+       Unix.sockaddr
+      -> ?request:H2.Request.t
+      -> _
+      -> (Headers.t -> Body.Writer.t)
+      -> unit
     =
    fun _client_address ?request:_ _error start_response ->
     let response_body = start_response Headers.empty in