Module RFC1951.Dictionary
type t = {
idx : int; |
prv : int; |
max : int; |
dictionary : int array; |
}
val inflate : (int array * int * int) -> (int array -> (Safe.ro, 'a) Safe.t -> (Safe.wo, 'b) Safe.t -> ('a, 'b, 'c) t -> ('a, 'b, 'c) res) -> (Safe.ro, 'a) Safe.t -> (Safe.wo, 'b) Safe.t -> ('a, 'b, 'c) t -> ('a, 'b, 'c) res