Module Common.Make_helpers

Parameters

module S : Generic_key

Signature

module B = S.Backend
module Graph : sig ... end
val info : S.Info.message -> S.Info.t
val infof : ('a, Stdlib.Format.formatter, unit, unit -> S.Info.t) Stdlib.format4 -> 'b
val get_contents_key : [> `Contents of 'a ] -> 'b
val get_node_key : [> `Node of 'a ] -> 'b
type x = int
val x_t : int Irmin.Type.t
val b : B.Repo.t -> B.Branch.t
val v1 : string
val v2 : string
val with_contents : B.Repo.t -> (Irmin.Perms.read_write B.Contents.t -> 'a Lwt.t) -> 'a Lwt.t
val with_node : B.Repo.t -> (Irmin.Perms.read_write B.Node.t -> 'a Lwt.t) -> 'a Lwt.t
val with_commit : B.Repo.t -> (Irmin.Perms.read_write B.Commit.t -> 'a Lwt.t) -> 'a Lwt.t
val with_info : B.Repo.t -> S.Info.message -> (Irmin.Perms.read_write B.Commit.t -> info:S.Info.t -> 'a Lwt.t) -> 'a Lwt.t
val kv1 : repo:B.Repo.t -> B.Contents.key Lwt.t
val kv2 : repo:B.Repo.t -> B.Contents.key Lwt.t
val normal : 'a -> [> `Contents of 'a * S.Metadata.t ]
val b1 : string
val b2 : string
val n1 : repo:B.Repo.t -> Graph.node_key Lwt.t
val n2 : repo:B.Repo.t -> Graph.node_key Lwt.t
val n3 : repo:B.Repo.t -> Graph.node_key Lwt.t
val n4 : repo:B.Repo.t -> Graph.node_key Lwt.t
val r1 : repo:B.Repo.t -> S.commit Lwt.t
val r2 : repo:B.Repo.t -> S.commit Lwt.t
val ignore_thunk_errors : (unit -> unit Lwt.t) -> unit Lwt.t
val run : Suite.t -> (S.Repo.t -> unit Lwt.t) -> unit Lwt.t