P2p: fix weird partial application

This commit is contained in:
michael 2018-05-30 14:24:04 +02:00 committed by Grégoire Henry
parent 6faaeaf5e8
commit 5b21610985

View File

@ -90,7 +90,7 @@ let create_scheduler limits =
?write_queue_size:limits.write_queue_size ?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 = { let pool_cfg = {
P2p_pool.identity = config.identity ; P2p_pool.identity = config.identity ;
proof_of_work_target = config.proof_of_work_target ; 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 in
let pool = 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 pool
let bounds ~min ~expected ~max = let bounds ~min ~expected ~max =