module Blob : sig ... endmodule Commit : sig ... endmodule Tree : sig ... endmodule Tag : sig ... endtype t = Git.Value.Make(Hash)(Inflate)(Deflate).t = | Blob of Blob.t |
| Commit of Commit.t |
| Tree of Tree.t |
| Tag of Tag.t |
val kind : t -> [ `Blob | `Commit | `Tag | `Tree ]val pp_kind : [ `Blob | `Commit | `Tag | `Tree ] Fmt.tmodule MakeMeta : functor (Meta : Encore.Meta.S) -> sig ... endmodule A : sig ... endmodule M : sig ... endmodule D : sig ... endmodule E : sig ... endval hash : t -> intmodule Set : sig ... endmodule Map : sig ... endval length : t -> int64