anchor.diff:                      cast(Parent, stopped, self()),
                       reply(From, Result)
               end;
  -        {From, peer_accepted, []} ->
  +        {From, peer_accepted, [Host]} ->
               #{ parent := Parent, info := Info } = S,
  -            case aec_peers:peer_accepted(Info, self()) of
  +            {ok, Addr} = inet:parse_address(Host),
  +            case aec_peers:peer_accepted(Info, Addr, self()) of
                   R when R =:= permanent; R =:= temporary ->
                       S2 = S#{ connected := true },
                       reply(From, R),
  
positive.code:     ?assertEqual(1, aec_peers:count(peers)),
  
      {ok, Conn2} = test_mgr_start_inbound(Peer1),
      ?assertEqual({error, already_connected}, conn_peer_accepted(Conn2)),
  
      ?assertEqual(1, aec_peers:count(connections)),
      ?assertEqual(0, aec_peers:count(inbound)),
  
negative.code:     ?assertEqual(1, aec_peers:count(peers)),
  
      {ok, Conn4} = test_mgr_start_inbound(Peer2),
      ?assertEqual(permanent, conn_peer_accepted(Conn4, maps:get(host, Peer2))),
      ?assertCalled(disconnect, [Conn3], ok, 100),
  
      ?assertEqual(1, aec_peers:count(connections)),
  