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:(string -> unit) ->
  ?push_stderr:(string -> unit) ->
  ?threads:int ->
  ctx:Mimic.ctx ->
  Git_store.Endpoint.t ->
  Git_store.t ->
  ?version:[> `V1 ] ->
  ?capabilities:
    [ `Multi_ack
    | `Multi_ack_detailed
    | `No_done
    | `Thin_pack
    | `Side_band
    | `Side_band_64k
    | `Ofs_delta
    | `Agent of string
    | `Shallow
    | `Deepen_since
    | `Deepen_not
    | `No_progress
    | `Include_tag
    | `Report_status
    | `Delete_refs
    | `Quiet
    | `Atomic
    | `Push_options
    | `Allow_tip_sha1_in_want
    | `Allow_reachable_sha1_in_want
    | `Push_cert of string
    | `Symref of string * string
    | `Other of string
    | `Parameter of string * string ]
      list ->
  ?deepen:[ `Depth of int | `Timestamp of int64 ] ->
  [< `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:[> `V1 ] ->
  ?capabilities:
    [ `Multi_ack
    | `Multi_ack_detailed
    | `No_done
    | `Thin_pack
    | `Side_band
    | `Side_band_64k
    | `Ofs_delta
    | `Agent of string
    | `Shallow
    | `Deepen_since
    | `Deepen_not
    | `No_progress
    | `Include_tag
    | `Report_status
    | `Delete_refs
    | `Quiet
    | `Atomic
    | `Push_options
    | `Allow_tip_sha1_in_want
    | `Allow_reachable_sha1_in_want
    | `Push_cert of string
    | `Symref of string * string
    | `Other of string
    | `Parameter of string * string ]
      list ->
  [< `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