package git-http

  1. Overview
  2. Docs

Parameters

module C : CLIENT with type +'a io = 'a Lwt.t and type headers = Web_cohttp_lwt.HTTP.headers and type body = Lwt_cstruct_flow.o and type meth = Web_cohttp_lwt.HTTP.meth and type resp = Web_cohttp_lwt.resp
module E : ENDPOINT with type t = C.endpoint and type headers = C.headers
module S : Git.S

Signature

module Client = C
module Endpoint : ENDPOINT with type t = Client.endpoint and type headers = Client.headers
include Git.Sync.S with module Endpoint := Endpoint with module Store = S
module Store = S
type error
val pp_error : error Fmt.t
type command = [
  1. | `Create of Store.Hash.t * Store.Reference.t
  2. | `Delete of Store.Hash.t * Store.Reference.t
  3. | `Update of Store.Hash.t * Store.Hash.t * Store.Reference.t
]
val pp_command : command Fmt.t
val push : Store.t -> push: ((Store.Hash.t * Store.Reference.t * bool) list -> (Store.Hash.t list * command list) Lwt.t) -> ?capabilities:Git__.Capability.t list -> Endpoint.t -> ((Store.Reference.t, Store.Reference.t * string) Stdlib.result list, error) Stdlib.result Lwt.t
val ls : Store.t -> ?capabilities:Git__.Capability.t list -> Endpoint.t -> ((Store.Hash.t * Store.Reference.t * bool) list, error) Stdlib.result Lwt.t
val fetch : Store.t -> ?shallow:Store.Hash.t list -> ?capabilities:Git__.Capability.t list -> notify:(Store.Hash.t Git__Sync.shallow_update -> unit Lwt.t) -> negociate: ((Store.Hash.t Git__Sync.acks -> 'state -> ([ `Again of Store.Hash.Set.t | `Done | `Ready ] * 'state) Lwt.t) * 'state) -> have:Store.Hash.Set.t -> want: ((Store.Hash.t * Store.Reference.t * bool) list -> (Store.Reference.t * Store.Hash.t) list Lwt.t) -> ?deepen:[ `Depth of int | `Ref of Git__.Reference.t | `Timestamp of int64 ] -> Endpoint.t -> ((Store.Reference.t * Store.Hash.t) list * int, error) Stdlib.result Lwt.t
val fetch_some : Store.t -> ?capabilities:Git__.Capability.t list -> references:Store.Reference.t list Store.Reference.Map.t -> Endpoint.t -> (Store.Hash.t Store.Reference.Map.t * Store.Reference.t list Store.Reference.Map.t, error) Stdlib.result Lwt.t
val fetch_all : Store.t -> ?capabilities:Git__.Capability.t list -> references:Store.Reference.t list Store.Reference.Map.t -> Endpoint.t -> (Store.Hash.t Store.Reference.Map.t * Store.Reference.t list Store.Reference.Map.t * Store.Hash.t Store.Reference.Map.t, error) Stdlib.result Lwt.t
val fetch_one : Store.t -> ?capabilities:Git__.Capability.t list -> reference:(Store.Reference.t * Store.Reference.t list) -> Endpoint.t -> ([ `AlreadySync | `Sync of Store.Hash.t Store.Reference.Map.t ], error) Stdlib.result Lwt.t
val clone : Store.t -> ?capabilities:Git__.Capability.t list -> reference:(Store.Reference.t * Store.Reference.t) -> Endpoint.t -> (unit, error) Stdlib.result Lwt.t
val update_and_create : Store.t -> ?capabilities:Git__.Capability.t list -> references:Store.Reference.t list Store.Reference.Map.t -> Endpoint.t -> ((Store.Reference.t, Store.Reference.t * string) Stdlib.result list, error) Stdlib.result Lwt.t
OCaml

Innovation. Community. Security.