From c9eab8689ac30f9552bc151235705734700bc93c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Gr=C3=A9goire=20Henry?= Date: Fri, 20 Apr 2018 21:04:29 +0200 Subject: [PATCH] Shell/Distributed_db: tune requests delay --- src/lib_shell/distributed_db_functors.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/lib_shell/distributed_db_functors.ml b/src/lib_shell/distributed_db_functors.ml index bb5ab3d01..e75a5621b 100644 --- a/src/lib_shell/distributed_db_functors.ml +++ b/src/lib_shell/distributed_db_functors.ml @@ -406,7 +406,7 @@ end = struct | Some peer -> P2p_peer.Id.pp_short ppf peer (* TODO should depend on the ressource kind... *) - let initial_delay = 0.1 + let initial_delay = 0.5 let process_event state now = function | Request (peer, key) -> begin @@ -503,7 +503,7 @@ end = struct else remaining_peers) in let next = { peers = remaining_peers ; next_request = now +. delay ; - delay = delay *. 1.2 } in + delay = delay *. 1.5 } in Table.replace state.pending key next ; let requests = try key :: P2p_peer.Map.find requested_peer acc