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 -> 'a
val get_contents_key : [> `Contents of 'a ] -> 'a
val get_node_key : [> `Node of 'a ] -> 'a
type x = int
val x_t : int Brassaia.Type.t
val b : B.Repo.t -> B.Branch.t
val v1 : string
val v2 : string
val with_contents : B.Repo.t -> (Brassaia_eio.Import.read_write B.Contents.t -> 'a) -> 'a
val with_node : B.Repo.t -> (Brassaia_eio.Import.read_write B.Node.t -> 'a) -> 'a
val with_commit : B.Repo.t -> (Brassaia_eio.Import.read_write B.Commit.t -> 'a) -> 'a
val with_info : B.Repo.t -> S.Info.message -> (Brassaia_eio.Import.read_write B.Commit.t -> info:S.Info.t -> 'a) -> 'a
val kv1 : repo:B.Repo.t -> B.Contents.key
val kv2 : repo:B.Repo.t -> B.Contents.key
val normal : 'a -> [> `Contents of 'a ]
val b1 : string
val b2 : string
val n1 : repo:B.Repo.t -> Graph.node_key
val n2 : repo:B.Repo.t -> Graph.node_key
val n3 : repo:B.Repo.t -> Graph.node_key
val n4 : repo:B.Repo.t -> Graph.node_key
val r1 : repo:B.Repo.t -> S.commit
val r2 : repo:B.Repo.t -> S.commit
val ignore_thunk_errors : (unit -> unit) -> unit
val run : Suite.t -> (S.Repo.t -> unit) -> unit