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

add function: commit : t -> Digestif.SHA1.t option

Browse source
This commit is contained in:
Hannes Mehnert 2024-11-27 19:45:56 +01:00
parent bc190bd054
commit 56eceb1ef2
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

@ -109,6 +109,8 @@ let connect ctx endpoint =
let branch t = t.branch let branch t = t.branch
let commit t = t.head
type key = Mirage_kv.Key.t type key = Mirage_kv.Key.t
type change = [ type change = [

3
src/git_kv.mli
View file

@ -43,6 +43,9 @@ val connect : Mimic.ctx -> string -> t Lwt.t
val branch : t -> Git.Reference.t val branch : t -> Git.Reference.t
(** [branch t] returns the branch used by the given [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 val to_octets : ?level:int -> t -> string Lwt_stream.t
(** [to_octets ?level store] returns a serialized version of the given [store]. (** [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] [level] is the {i zlib} level compression used for Git object (between [0]