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

Quick fix mistakes

Browse source 
It didn't compile :( Lwt.Infix was opened and not Lwt.Syntax. Also,
Git.Value.Commit needs to be fully qualified.
This commit is contained in:
Reynir Björnsson 2024-12-20 14:08:00 +01:00
parent 7809c7e384
commit 75e609ed05
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/git_kv.ml
View file

@ -474,8 +474,8 @@ module Make (Pclock : Mirage_clock.PCLOCK) = struct
| None, Some head -> | None, Some head ->
(* See https://github.com/ocaml/ocaml/issues/9301 why we have the (* See https://github.com/ocaml/ocaml/issues/9301 why we have the
intermediate [r] value. *) intermediate [r] value. *)
let+ r = Store.read_exn t.store head in Store.read_exn t.store head >|= fun r ->
let[@warning "-8"] Commit c = r in let[@warning "-8"] Git.Value.Commit c = r in
let author = Git_commit.author c in let author = Git_commit.author c in
let secs, tz_offset = author.Git.User.date in let secs, tz_offset = author.Git.User.date in
let secs = let secs =