Make.1-S
module Hash : sig ... end
module Inflate : sig ... end
module Deflate : sig ... end
module Value : Value.S with module Hash := Hash and module Inflate := Inflate and module Deflate := Deflate
module PEnc : Pack.P with module Hash := Hash and module Deflate := Deflate
type t
type error#row
and error = private [>
|
`Delta of PEnc.Delta.error
]
type kind = [
`Commit
`Tree
`Tag
`Blob
val pp_error : error Fmt.t
val read_inflated : t -> Hash.t -> (kind * Cstruct.t) option Lwt.t
val contents : t -> ((Hash.t * Value.t) list, error) Stdlib.result Lwt.t