Module Git_unix.Sync

Parameters

module Store : Git.S

Signature

type hash = Store.hash
type store = Store.t
type error = private [>
  1. | Mimic.error
  2. | `Exn of exn
]
val pp_error : error Fmt.t
val fetch : ?push_stdout:(string -> unit) -> ?push_stderr:(string -> unit) -> ?threads:int -> ctx:Mimic.ctx -> Smart_git.Endpoint.t -> store -> ?version:[> `V1 ] -> ?capabilities:Smart.Capability.t list -> ?deepen:[ `Depth of int | `Timestamp of int64 ] -> [ `All | `Some of (Git.Reference.t * Git.Reference.t) list | `None ] -> ((hash * (Git.Reference.t * hash) list) option, error) Stdlib.result Lwt.t
val push : ctx:Mimic.ctx -> Smart_git.Endpoint.t -> store -> ?version:[> `V1 ] -> ?capabilities:Smart.Capability.t list -> [ `Create of Git.Reference.t | `Delete of Git.Reference.t | `Update of Git.Reference.t * Git.Reference.t ] list -> (unit, error) Stdlib.result Lwt.t