val make : tree:Hash.t -> author:Git.User.t -> committer:Git.User.t -> ?parents:Hash.t list -> ?extra:(string * string list) list -> string -> 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 -> int64val committer : t -> Git.User.tval author : t -> Git.User.tval message : t -> stringval extra : t -> (string * string list) list