diff --git a/src/git_kv.ml b/src/git_kv.ml index ef8d57c..8aada58 100644 --- a/src/git_kv.ml +++ b/src/git_kv.ml @@ -109,6 +109,8 @@ let connect ctx endpoint = let branch t = t.branch +let commit t = t.head + type key = Mirage_kv.Key.t type change = [ diff --git a/src/git_kv.mli b/src/git_kv.mli index 3655b2c..3de53d7 100644 --- a/src/git_kv.mli +++ b/src/git_kv.mli @@ -43,6 +43,9 @@ val connect : Mimic.ctx -> string -> t Lwt.t val branch : t -> Git.Reference.t (** [branch t] returns the branch used by the given [t]. *) +val commit : t -> Digestif.SHA1.t option +(** [commit t] returns the commit used by the given [t]. *) + val to_octets : ?level:int -> t -> string Lwt_stream.t (** [to_octets ?level store] returns a serialized version of the given [store]. [level] is the {i zlib} level compression used for Git object (between [0]