Internal.Snapshot
type hash = hash
type metadata
type kinded_hash =
| Contents of hash * metadata
| Node of hash
val kinded_hash_t : kinded_hash Irmin.Type.t
type entry = {
step : string;
hash : kinded_hash;
}
val entry_t : entry Irmin.Type.t
type inode_tree = {
depth : int;
length : int;
pointers : (int * hash) list;
val inode_tree_t : inode_tree Irmin.Type.t
type v =
| Inode_tree of inode_tree
| Inode_value of entry list
val v_t : v Irmin.Type.t
type inode = {
v : v;
root : bool;
val inode_t : inode Irmin.Type.t