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

Refactor test/dune and add a failing test #2

Merged
reynir merged 12 commits from batch-test into main 2024-10-29 11:21:16 +00:00
Conversation 15 Commits 12 Files changed 8 -1
1 changed files with 0 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit 750ec11b5f - Show all commits

1
src/git_kv.ml
View file

@ -688,7 +688,6 @@ module Make (Pclock : Mirage_clock.PCLOCK) = struct
| Some th -> th ) >>= fun () -> | Some th -> th ) >>= fun () ->
( let open Lwt_result.Infix in ( let open Lwt_result.Infix in
tree_root_hash_of_store t >>= fun tree_root_hash -> tree_root_hash_of_store t >>= fun tree_root_hash ->
t.change_and_push_waiter <- Some th ;
let t' = { t with committed = Some tree_root_hash } in let t' = { t with committed = Some tree_root_hash } in
f t' >>! fun res -> f t' >>! fun res ->
(* XXX(dinosaure): we assume that only [change_and_push] can reset [t.committed] to [None] and (* XXX(dinosaure): we assume that only [change_and_push] can reset [t.committed] to [None] and