package git-kv
A Mirage_kv implementation using git
Install
Dune Dependency
Authors
Maintainers
Sources
git-kv-0.2.0.tbz
sha256=40de3010d82dd8e9229e7df09c0a649e81efd47e991ef6eb31ee0c713dfe400d
sha512=fe70e3d1ad0f2a07dfd594ea87b4a4fcc1fe5633ced537206e61d566a2f97061dd0b348b1e93b8de1196af5878f307b7a3f595b1b51b25da89ee918328b977d9
doc/git-kv.sync/Git_sync/index.html
Module Git_sync
Source
Source
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 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
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>