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 =