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)