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

Remove an assert false, and silence warning 8

Browse source
This commit is contained in:
Reynir Björnsson 2024-12-19 15:05:48 +01:00
parent e342f8539a
commit d2a0e526da
1 changed files with 21 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/git_kv.ml
View file

@ -472,8 +472,10 @@ module Make (Pclock : Mirage_clock.PCLOCK) = struct
~none:Ptime.epoch ~none:Ptime.epoch
~some:Fun.id (Ptime.of_float_s (Int64.to_float (now ())))) ~some:Fun.id (Ptime.of_float_s (Int64.to_float (now ()))))
| None, Some head -> | None, Some head ->
Store.read_exn t.store head >|= function (* See https://github.com/ocaml/ocaml/issues/9301 why we have the
| Commit c -> intermediate [r] value. *)
let+ r = Store.read_exn t.store head in
let[@warning "-8"] 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 =
@ -491,7 +493,6 @@ module Make (Pclock : Mirage_clock.PCLOCK) = struct
~some:Fun.id (Ptime.of_float_s (Int64.to_float secs)) ~some:Fun.id (Ptime.of_float_s (Int64.to_float secs))
in in
Ok ts Ok ts
| _ -> assert false
let digest t key = let digest t key =
let open Lwt.Infix in let open Lwt.Infix in