last type errors

src/app/cli/src/coda.ml

@@ -755,7 +755,7 @@ let daemon logger =
              ; initial_peers
              ; addrs_and_ports
              ; trust_system
-             ; isolate
+             ; isolate= Option.value ~default:false isolate
              ; gossip_type= `Gossipsub
              ; keypair= libp2p_keypair }
          in

src/app/cli/src/tests/coda_worker.ml

@@ -516,6 +516,7 @@ module T = struct
               ; chain_id
               ; logger
               ; unsafe_no_trust_ip= true
+              ; isolate= false
               ; gossip_type= `Gossipsub
               ; trust_system
               ; keypair= Some libp2p_keypair }

src/app/cli/src/tests/full_test.ml

@@ -151,6 +151,7 @@ let run_test () : unit Deferred.t =
           ; logger
           ; initial_peers= []
           ; unsafe_no_trust_ip= true
+          ; isolate= false
           ; gossip_type= `Gossipsub
           ; conf_dir= temp_conf_dir
           ; chain_id

src/lib/coda_net2/coda_net2.ml

@@ -962,6 +962,17 @@ module Multiaddr = struct
   let to_string t = t
 
   let of_string t = t
+
+  let to_peer t =
+    match String.split ~on:'/' t with
+    | [""; "ip4"; ip4_str; "tcp"; tcp_str; "p2p"; peer_id] -> (
+      try
+        let host = Unix.Inet_addr.of_string ip4_str in
+        let libp2p_port = Int.of_string tcp_str in
+        Some (Network_peer.Peer.create host ~libp2p_port ~peer_id)
+      with _ -> None )
+    | _ ->
+        None
 end
 
 type discovered_peer = {id: Peer.Id.t; maddrs: Multiaddr.t list}

src/lib/coda_net2/coda_net2.mli

@@ -94,6 +94,8 @@ module Multiaddr : sig
   val to_string : t -> string
 
   val of_string : string -> t
+
+  val to_peer : t -> Network_peer.Peer.t option
 end
 
 type discovered_peer = {id: Peer.Id.t; maddrs: Multiaddr.t list}

src/lib/gossip_net/libp2p.ml

@@ -148,16 +148,19 @@ module Make (Rpc_intf : Coda_base.Rpc_intf.Rpc_interface_intf) :
                 ~unsafe_no_trust_ip:config.unsafe_no_trust_ip
                 ~seed_peers:config.initial_peers
                 ~initial_gating_config:
-                  { trusted_peers= config.initial_peers
-                  ; banned_peers=
-                      Trust_system.peer_statuses config.trust_system
-                      |> List.filter_map ~f:(fun (peer, status) ->
-                             match status.banned with
-                             | Banned_until _ ->
-                                 Some peer
-                             | _ ->
-                                 None )
-                  ; isolate= config.isolate }
+                  Coda_net2.
+                    { banned_peers=
+                        Trust_system.peer_statuses config.trust_system
+                        |> List.filter_map ~f:(fun (peer, status) ->
+                               match status.banned with
+                               | Banned_until _ ->
+                                   Some peer
+                               | _ ->
+                                   None )
+                    ; trusted_peers=
+                        List.filter_map ~f:Coda_net2.Multiaddr.to_peer
+                          config.initial_peers
+                    ; isolate= config.isolate }
                 ~on_new_peer:(fun _ ->
                   Ivar.fill_if_empty first_peer_ivar () ;
                   if !ctr < 4 then incr ctr