From b27bb84861732362ec87b6e2ec4c697aa94ef57e Mon Sep 17 00:00:00 2001 From: Pietro Date: Thu, 26 Apr 2018 13:57:11 +0200 Subject: [PATCH] [p2p] fix space for semicolon and pipe --- src/lib_p2p/p2p_maintenance.ml | 2 +- src/lib_p2p/p2p_pool.ml | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/lib_p2p/p2p_maintenance.ml b/src/lib_p2p/p2p_maintenance.ml index fcef4332d..3863c88b2 100644 --- a/src/lib_p2p/p2p_maintenance.ml +++ b/src/lib_p2p/p2p_maintenance.ml @@ -98,7 +98,7 @@ let rec maintain st = let older_than = Time.(add (now ()) (Int64.of_int (- pool_cfg.greylist_timeout))) in - P2p_pool.gc_greylist pool ~older_than; + P2p_pool.gc_greylist pool ~older_than ; if n_connected < st.bounds.min_threshold then too_few_connections st n_connected else if st.bounds.max_threshold < n_connected then diff --git a/src/lib_p2p/p2p_pool.ml b/src/lib_p2p/p2p_pool.ml index 50101150c..0f1a66f62 100644 --- a/src/lib_p2p/p2p_pool.ml +++ b/src/lib_p2p/p2p_pool.ml @@ -219,7 +219,7 @@ type ('msg, 'meta) t = { encoding : 'msg Message.t Data_encoding.t ; events : events ; watcher : P2p_connection.Pool_event.t Lwt_watcher.input ; - acl : P2p_acl.t; + acl : P2p_acl.t ; mutable new_connection_hook : (P2p_peer.Id.t -> ('msg, 'meta) connection -> unit) list ; mutable latest_accepted_swap : Time.t ; @@ -414,8 +414,8 @@ let get_addr pool peer_id = | _ -> None) in match find_by_peer_id peer_id with - |None -> None - |Some ci -> + | None -> None + | Some ci -> let info = P2p_socket.info ci.conn in Some(info.id_point)