type error = error_zmodule F = RFC1951.Fand ('i, 'o) state = | Header of ('i, 'o) k |
| Deflate |
| Adler32 of ('i, 'o) k |
| Finish |
| Exception of error |
and ('i, 'o) res = | Cont of ('i, 'o) t |
| Wait of ('i, 'o) t |
| Flush of ('i, 'o) t |
| Ok of ('i, 'o) t |
| Error of ('i, 'o) t * error |
val pp_error : Stdlib.Format.formatter -> error_z -> unitval pp_state : Stdlib.Format.formatter -> ('a, 'b) state -> unitval pp : Stdlib.Format.formatter -> ('a, 'b) t -> unitval put_byte : ctor:(('a -> ([< `Rd | `Wr Wr ] as 'b, 'c) Safe.t -> ('d, 'c) t -> ('d, 'c) res) -> ('d, 'c) state) -> int -> ('a -> ('b, 'c) Safe.t -> ('d, 'c) t -> ('d, 'c) res) -> 'a -> ('b, 'c) Safe.t -> ('d, 'c) t -> ('d, 'c) resval put_short_lsb : ctor:(('a -> ([< `Rd | `Wr Wr ] as 'b, 'c) Safe.t -> ('d, 'c) t -> ('d, 'c) res) -> ('d, 'c) state) -> int -> ('a -> ('b, 'c) Safe.t -> ('d, 'c) t -> ('d, 'c) res) -> 'a -> ('b, 'c) Safe.t -> ('d, 'c) t -> ('d, 'c) resval align : ctor:(('a -> ([< `Rd | `Wr Wr ] as 'b, 'c) Safe.t -> ('d, 'c) t -> ('d, 'c) res) -> ('d, 'c) state) -> ('a -> ('b, 'c) Safe.t -> ('d, 'c) t -> ('d, 'c) res) -> 'a -> ('b, 'c) Safe.t -> ('d, 'c) t -> ('d, 'c) resval put_short_msb : ctor:(('a -> ([< `Rd | `Wr Wr ] as 'b, 'c) Safe.t -> ('d, 'c) t -> ('d, 'c) res) -> ('d, 'c) state) -> int -> ('a -> ('b, 'c) Safe.t -> ('d, 'c) t -> ('d, 'c) res) -> 'a -> ('b, 'c) Safe.t -> ('d, 'c) t -> ('d, 'c) resmodule KHeader : sig ... endmodule KAdler32 : sig ... endval deflate : (Lz77.Safe.ro, 'a) Lz77.Safe.t -> (Safe.wo, 'a) Safe.t -> ('a, 'a) t -> ('a, 'a) resval eval : 'a -> 'a -> ('a, 'a) t -> [> `Await of ('a, 'a) t | `End of ('a, 'a) t | `Error of ('a, 'a) t * error | `Flush of ('a, 'a) t ]val default : witness:'a Safe.Buffer.t -> ?wbits:int -> int -> ('a, 'a) tval get_frequencies : ('a, 'b) t -> RFC1951.F.tval flush_of_meth : RFC1951.meth -> int -> int -> ('a, 'a) t -> ('a, 'a) tval used_in : ('a, 'b) t -> intval used_out : ('a, 'b) t -> intinclude sig ... end
val to_result : 'a -> 'a -> ?meth:(meth * int) -> ('a -> int option -> int) -> ('a -> int -> int) -> ('a, 'a) t -> (('a, 'a) t, error) Stdlib.resultval bytes : 'a -> 'a -> ?meth:(meth * int) -> ('a -> int option -> int) -> ('a -> int -> int) -> ('a, 'a) t -> (('a, 'a) t, error) Stdlib.resultval bigstring : 'a -> 'a -> ?meth:(meth * int) -> ('a -> int option -> int) -> ('a -> int -> int) -> ('a, 'a) t -> (('a, 'a) t, error) Stdlib.result