From b8863ff8224cbf1bfe3c4aebca4dffd491d722ec Mon Sep 17 00:00:00 2001 From: Adam Allombert-Goget Date: Thu, 13 Mar 2025 16:21:14 +0100 Subject: [PATCH] shell: fix storage maintenance corner case Co-authored-by: Victor Allombert --- src/lib_shell_services/storage_maintenance.ml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/lib_shell_services/storage_maintenance.ml b/src/lib_shell_services/storage_maintenance.ml index ebb63769f93e..3aa0ed2894fb 100644 --- a/src/lib_shell_services/storage_maintenance.ml +++ b/src/lib_shell_services/storage_maintenance.ml @@ -48,7 +48,9 @@ let delay_encoding = let default_auto_delay ~blocks_per_cycle = let exclusion = Int32.(max 1l (div blocks_per_cycle 20l)) in let limit = Int32.div blocks_per_cycle 2l in - let delay = Int32.add (Random.int32 (Int32.sub limit exclusion)) exclusion in + let delay = + Int32.add (Random.int32 (max 1l (Int32.sub limit exclusion))) exclusion + in delay let pp_delay fmt = function -- GitLab