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

Add the branch accessor

Browse source
This commit is contained in:
Calascibetta Romain 2023-03-15 11:43:36 +01:00
parent 73bdcba54b
commit a8ab45f2be
No known key found for this signature in database
GPG key ID: 8CC4DC3365A666B0
2 changed files with 4 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 = [

2
src/git_kv.mli
View file

@ -40,6 +40,8 @@ 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
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]. *)