anchor.diff:      %% Wait for response, either answer or exit.
       receive
           {ok, Address} ->
  +            lager:info("Resolved ~p to ~p", [FQDN, Address]),
               Address;
           Error ->
               lager:error("Error resolving name ~p: ~p", [Error, FQDN]),
  
positive.code:     end,
  
      %% Spawn the resolver.
      ResolverPid = spawn(Fun),
  
      %% Exit the resolver after a limited amount of time.
      timer:exit_after(1000, ResolverPid, normal),
  
negative.code:     %% Spawn a process to perform resolution.
      Me = self(),
  
      ResolverFun = fun() ->
          lager:info("Resolving ~p...", [FQDN]),
          case inet:getaddr(FQDN, inet) of
              {ok, Address} ->
                  lager:info("Resolved ~p to ~p", [Name, Address]),
                  Me ! {ok, ?PEER_IP};
              {error, Error} ->
                  lager:error("Cannot resolve local name ~p, resulting to 127.0.0.1: ~p", [FQDN, Error]),
                  Me ! {ok, ?PEER_IP}
  