Helper.MakeDeflater
module Z : sig ... end
module M : sig ... end
type t = M.e
type init = Cstruct.t * M.e * int * Cstruct.t
type error = [
|
`Deflate of Z.error
]
type encoder
val pp_error : error Fmt.t
val default : init -> encoder
val eval : Cstruct.t -> encoder -> [ `Flush of encoder | `End of encoder * int | `Error of error ]
val flush : int -> int -> encoder -> encoder
val used : encoder -> int