sig
val set_compress_level : int -> unit
val set_buffer_size : int -> unit
type filter =
[ `Extension of string | `Type of string option * string option ]
val run :
mode:[ `All_but of Deflatemod.filter list
| `Only of Deflatemod.filter list ] ->
unit -> Ocsigen_server.instruction
val section : Lwt_log_core.section
end