handle_call({dial, Host, Port}, _From, State = #state{key_pair = KeyPair}) ->

handle_call({dial, Host, Port}, From, State = #state{key_pair = KeyPair}) ->

    spawn(fun() -> do_dial(ActualHost, Port, KeyPair, TransportPid) end),
    {reply, ok, State};

    % Reply will be sent from do_dial once connection succeeds or fails
    spawn(fun() -> do_dial(ActualHost, Port, KeyPair, TransportPid, From) end),
    {noreply, State};

do_dial(Host, Port, KeyPair, TransportPid) ->

do_dial(Host, Port, KeyPair, TransportPid, From) ->

            ok;

            % Reply to the caller with success
            gen_server:reply(From, {ok, ConnPid});

            io:format("[Transport] Connection error to ~p:~p: ~p~n", [Host, Port, Reason])

            io:format("[Transport] Connection error to ~p:~p: ~p~n", [Host, Port, Reason]),
            % Reply to the caller with error
            gen_server:reply(From, {error, Reason})