From e8ed0afe47a492af015e4a508b2dc738e9f67dce Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Wed, 25 Mar 2020 22:06:43 -0400 Subject: [PATCH] fix: parse transfer-encoding properly --- src/camlzip/Tiny_httpd_camlzip.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/camlzip/Tiny_httpd_camlzip.ml b/src/camlzip/Tiny_httpd_camlzip.ml index 8d4047fb..0fc4f13c 100644 --- a/src/camlzip/Tiny_httpd_camlzip.ml +++ b/src/camlzip/Tiny_httpd_camlzip.ml @@ -121,7 +121,7 @@ let accept_deflate (req:_ S.Request.t) = | None -> false let has_deflate s = - try Scanf.sscanf s "deflate; %s" (fun _ -> true) + try Scanf.sscanf s "deflate, %s" (fun _ -> true) with _ -> false let cb_decode_compressed_stream ~buf_size (req:unit S.Request.t) : _ option =