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

Merge pull request 'Add the branch accessor' (#30) from add-branch-accessor into main

Browse source 
Reviewed-on: https://git.robur.io/robur/git-kv/pulls/30
This commit is contained in:
Reynir Björnsson 2023-03-16 11:12:55 +00:00
commit 0e6eab102f
2 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/git_kv.ml
View file

@ -107,6 +107,8 @@ let connect ctx endpoint =
let _r = to_invalid r in let _r = to_invalid r in
Lwt.return t Lwt.return t
let branch t = t.branch
type key = Mirage_kv.Key.t type key = Mirage_kv.Key.t
type change = [ type change = [

3
src/git_kv.mli
View file

@ -40,6 +40,9 @@ val connect : Mimic.ctx -> string -> t Lwt.t
@raise [Invalid_argument _] if we can not initialize the store, or if @raise [Invalid_argument _] if we can not initialize the store, or if
we can not fetch the given [remote]. *) we can not fetch the given [remote]. *)
val branch : t -> Git.Reference.t
(** [branch t] returns the branch used by the given [t]. *)
val to_octets : t -> string Lwt.t val to_octets : t -> string Lwt.t
(** [to_octets store] returns a serialized version of the given [store]. *) (** [to_octets store] returns a serialized version of the given [store]. *)