chore: reformat (#1077)

mirage · Jul 20, 2024 · 059cca0 · 059cca0
1 parent abcad4c
commit 059cca0
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 13 deletions.
diff --git a/cohttp-async/src/server.ml b/cohttp-async/src/server.ml
@@ -16,10 +16,7 @@ type response_action =
   | `Response of response ]
 
 type 'r respond_t =
-  ?headers:Http.Header.t ->
-  ?body:Body.t ->
-  Http.Status.t ->
-  'r Deferred.t
+  ?headers:Http.Header.t -> ?body:Body.t -> Http.Status.t -> 'r Deferred.t
 
 let close t = Tcp.Server.close t.server
 let close_finished t = Tcp.Server.close_finished t.server
@@ -127,8 +124,7 @@ let resolve_local_file ~docroot ~uri =
 
 let error_body_default = "<html><body><h1>404 Not Found</h1></body></html>"
 
-let respond_with_file ?headers ?(error_body = error_body_default)
-    filename =
+let respond_with_file ?headers ?(error_body = error_body_default) filename =
   Monitor.try_with ~run:`Now (fun () ->
       Reader.open_file filename >>= fun rd ->
       let body = `Pipe (Reader.pipe rd) in

diff --git a/cohttp/src/s.ml b/cohttp/src/s.ml
@@ -138,7 +138,6 @@ module type Response = sig
   val headers : t -> Header.t
   val version : t -> Code.version
   val status : t -> Code.status_code
-
   val compare : t -> t -> int
 
   val make :

diff --git a/cohttp/src/server.ml b/cohttp/src/server.ml
@@ -49,12 +49,12 @@ module type S = sig
     body:body ->
     unit ->
     response IO.t
-  (** [respond ?headers ~status ~body] will respond to an HTTP request
-      with the given [status] code and response [body]. The transfer encoding
-      will be detected from the [body] value and set to chunked encoding if it
-      cannot be determined immediately. You can override the encoding by
-      supplying an appropriate [Content-length] or [Transfer-encoding] in the
-      [headers] parameter. *)
+  (** [respond ?headers ~status ~body] will respond to an HTTP request with the
+      given [status] code and response [body]. The transfer encoding will be
+      detected from the [body] value and set to chunked encoding if it cannot be
+      determined immediately. You can override the encoding by supplying an
+      appropriate [Content-length] or [Transfer-encoding] in the [headers]
+      parameter. *)
 
   val respond_string :
     ?headers:Http.Header.t ->