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