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

remove superfluous assignment, spotted by @dinosaure

Browse source
This commit is contained in:
Hannes Mehnert 2024-10-29 09:50:53 +01:00
parent e91bd44cb8
commit 750ec11b5f
1 changed files with 0 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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