diff --git a/src/lib_layer2_store/indexed_store.ml b/src/lib_layer2_store/indexed_store.ml index 8f915393464dee967b0518d9dfe46a88948617db..1d5a818123bbfcbad512f5dc046d26386e786c0a 100644 --- a/src/lib_layer2_store/indexed_store.ml +++ b/src/lib_layer2_store/indexed_store.ml @@ -646,7 +646,12 @@ end) : SINGLETON_STORE with type value := S.t = struct let read store = let open Lwt_result_syntax in - match store.cache with Some v -> return v | None -> read_disk store + match store.cache with + | Some v -> return v + | None -> + let* value = read_disk store in + store.cache <- Some value ; + return value let write_disk store x = let open Lwt_result_syntax in