Git_sync (p.git-kv.0.2.0.doc.git-kv.sync.Git

Sourceval src : Logs.src

Sourceval (<.>) : ('a -> 'b) -> ('c -> 'a) -> 'c -> 'b

Sourcemodule Log : Logs.LOG

module SHA1 = Digestif.SHA1

Sourcetype error = [

| `Exn of exn
| `Git_store of Git_store.error
| Mimic.error

]

val pp_error : 
  Format.formatter ->
  [< `Cycle
  | `Exn of exn
  | `Git_store of
    [< `Msg of string
    | `Not_found of Git_store.SHA1.t
    | `Reference_not_found of string ]
  | `Invalid_flow
  | `Msg of string
  | `Not_found ] ->
  unit

Source

val (>>?) : 
  ('a, 'b) result Lwt.t ->
  ('a -> ('c, 'b) result Lwt.t) ->
  ('c, 'b) result Lwt.t

Source

val fetch : 
  ?push_stdout:??? ->
  ?push_stderr:??? ->
  ?threads:??? ->
  ctx:Mimic.ctx ->
  Git_store.Endpoint.t ->
  Git_store.t ->
  ?version:??? ->
  ?capabilities:??? ->
  ?deepen:??? ->
  [< `All | `None | `Some of (Git_store.Reference.Map.key * String.t) list ] ->
  ((string * (Git_store.Reference.Map.key * Git_store.Reference.SHA1.t) list)
     option,
    [> `Cycle | `Exn of exn | `Msg of string | `Not_found ])
    result
    Lwt.t

Source

val push : 
  ctx:Mimic.ctx ->
  Git_store.Endpoint.t ->
  Git_store.t ->
  ?version:??? ->
  ?capabilities:??? ->
  [< `Create of String.t
  | `Delete of String.t
  | `Update of String.t * String.t ]
    list ->
  (unit, [> `Cycle | `Exn of exn | `Msg of string | `Not_found ]) result Lwt.t