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

Reviewed-on: https://git.robur.io/robur/git-kv/pulls/30

src/git_kv.ml

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

src/git_kv.mli

@@ -40,6 +40,9 @@ val connect : Mimic.ctx -> string -> t Lwt.t
     @raise [Invalid_argument _] if we can not initialize the store, or if
     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
 (** [to_octets store] returns a serialized version of the given [store]. *)