val run : root:string -> unit Lwt.t
val term_internal : (unit -> unit) Cmdliner.Term.t
val term : unit Cmdliner.Term.t * Cmdliner.Term.info
type size =
| Bytes of int
val size_t : size Irmin.Type.t
type objects = {
nb_commits : int;
nb_nodes : int;
nb_contents : int;
}
val objects_t : objects Irmin.Type.t
val traverse_index : root:string -> int -> objects