From 5b21610985851d3ba7db0b471bfde4f758d05788 Mon Sep 17 00:00:00 2001 From: michael Date: Wed, 30 May 2018 14:24:04 +0200 Subject: [PATCH] P2p: fix weird partial application --- src/lib_p2p/p2p.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/lib_p2p/p2p.ml b/src/lib_p2p/p2p.ml index 6c2ba29d4..bb006c66b 100644 --- a/src/lib_p2p/p2p.ml +++ b/src/lib_p2p/p2p.ml @@ -90,7 +90,7 @@ let create_scheduler limits = ?write_queue_size:limits.write_queue_size () -let create_connection_pool config limits meta_cfg msg_cfg io_sched = +let create_connection_pool config limits meta_cfg conn_meta_cfg msg_cfg io_sched = let pool_cfg = { P2p_pool.identity = config.identity ; proof_of_work_target = config.proof_of_work_target ; @@ -116,7 +116,7 @@ let create_connection_pool config limits meta_cfg msg_cfg io_sched = } in let pool = - P2p_pool.create pool_cfg meta_cfg msg_cfg io_sched in + P2p_pool.create pool_cfg meta_cfg conn_meta_cfg msg_cfg io_sched in pool let bounds ~min ~expected ~max =