From 9dc5473882f94ff2e0ceee84ad44c8a087bc393d Mon Sep 17 00:00:00 2001 From: Victor Allombert Date: Tue, 14 May 2024 15:00:37 +0200 Subject: [PATCH] Store: introduce Block_store_status.get_status_value --- src/lib_store/shared/store_types.ml | 2 ++ src/lib_store/shared/store_types.mli | 5 ++--- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/src/lib_store/shared/store_types.ml b/src/lib_store/shared/store_types.ml index ecf81132e337..42bb724473cf 100644 --- a/src/lib_store/shared/store_types.ml +++ b/src/lib_store/shared/store_types.ml @@ -49,6 +49,8 @@ module Block_store_status = struct let is_merging = function Idle _ -> false | Merging _ -> true + let get_status_value = function Idle v | Merging v -> v + let create_idle_status = Idle 0 let equal s1 s2 = diff --git a/src/lib_store/shared/store_types.mli b/src/lib_store/shared/store_types.mli index e2cce0135071..58c43546f5cf 100644 --- a/src/lib_store/shared/store_types.mli +++ b/src/lib_store/shared/store_types.mli @@ -29,9 +29,6 @@ module Block_store_status : sig (** The type used to describe the status of the store. *) type t - (* Getters *) - val get_value : t Stored_data.t -> int Lwt.t - (* Setters *) val set_idle_status : t Stored_data.t -> unit tzresult Lwt.t @@ -44,6 +41,8 @@ module Block_store_status : sig val is_merging : t -> bool + val get_status_value : t -> int + (* Initialisers *) val create_idle_status : t -- GitLab