robur/git-kv
4
0
Fork 0
Code Issues Pull requests 1 Projects Releases Packages Wiki Activity Actions

Implement the push function

Browse source
This commit is contained in:
Romain Calascibetta 2022-10-19 11:37:41 +02:00
parent 36ceb8a0cd
commit 3ff46e50ac
2 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/git_kv.ml
View file

@ -83,8 +83,8 @@ let pull t =
Store.Ref.resolve t.store t.branch >>= fun r ->
let head =
Result.map_error
(fun e -> `Msg (Fmt.str "error resolving branch %s: %a"
(Git.Reference.to_string t.branch)
(fun e -> `Msg (Fmt.str "error resolving branch %a: %a"
Git.Reference.pp t.branch
Store.pp_error e))
r |> to_invalid
in
@ -92,6 +92,12 @@ let pull t =
t.head <- Some head;
Lwt.return (Ok diff)
let push t =
let open Lwt.Infix in
Sync.push ~capabilities ~ctx:t.ctx t.edn t.store [ `Update (t.branch, t.branch) ]
>|= Result.map_error (fun err -> `Msg (Fmt.str "error pushing branch %a: %a"
Git.Reference.pp t.branch Sync.pp_error err))
let connect ctx endpoint =
let open Lwt.Infix in
init_store () >>= fun store ->

1
src/git_kv.mli
View file

@ -22,4 +22,5 @@ type change = [ `Add of key
| `Change of key ]
val pull : t -> (change list, [> `Msg of string ]) result Lwt.t
val push : t -> (unit, [> `Msg of string ]) result Lwt.t
val size : t -> key -> (int, error) result Lwt.t