From fe36acf198d20c6890b278bfce2ac5a43c9baaff Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Thu, 16 Dec 2021 10:54:11 -0500 Subject: [PATCH] details --- src/camlzip/Tiny_httpd_camlzip.ml | 2 +- src/camlzip/Tiny_httpd_camlzip.mli | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/src/camlzip/Tiny_httpd_camlzip.ml b/src/camlzip/Tiny_httpd_camlzip.ml index 217b878a..f9a394fc 100644 --- a/src/camlzip/Tiny_httpd_camlzip.ml +++ b/src/camlzip/Tiny_httpd_camlzip.ml @@ -162,7 +162,7 @@ let decompress_req_stream_ ~buf_size (req:BS.t S.Request.t) : _ S.Request.t = |> S.Request.set_body body' | exception _ -> req end - | _ -> req + | _ -> req let compress_resp_stream_ ~compress_above diff --git a/src/camlzip/Tiny_httpd_camlzip.mli b/src/camlzip/Tiny_httpd_camlzip.mli index d086e8e6..2ca5c6a6 100644 --- a/src/camlzip/Tiny_httpd_camlzip.mli +++ b/src/camlzip/Tiny_httpd_camlzip.mli @@ -3,6 +3,8 @@ val middleware : ?compress_above:int -> ?buf_size:int -> unit -> Tiny_httpd.Middleware.t +(** Middleware responsible for deflate compression/decompression. + @since NEXT_RELEASE *) val setup : ?compress_above:int ->