summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2015-10-23 21:45:57 +0200
committerDimitri Sokolyuk <demon@dim13.org>2015-10-23 21:45:57 +0200
commit49ce8ae1c398f71c1e2481d758dc8c1744712b3c (patch)
tree4502be452c7a3cd07c5576aaaa3e987897c4712d
parent17eef2eb3ec1fffa51e8395af6b87bfc04e09c4c (diff)
Working
-rw-r--r--tda.erl5
1 files changed, 3 insertions, 2 deletions
diff --git a/tda.erl b/tda.erl
index 3bc67ca..68ed176 100644
--- a/tda.erl
+++ b/tda.erl
@@ -74,6 +74,7 @@ client() ->
case gen_tcp:connect(Host, 33333, [binary, {active, true}, {packet, 2}]) of
{ok, Sock} ->
{ok, Hello} = associate_request(),
+ io:format("Hello: ~p~n", [Hello]),
gen_tcp:send(Sock, [Hello]),
loop(Sock);
{error, Reason} -> {error, Reason}
@@ -85,8 +86,8 @@ loop(Sock) ->
%inet:setopts(Sock, [{active, once}]),
io:format("loop ~p~n", [Sock]),
receive
- {tcp, Sock, <<Whatever>>} ->
- io:format(">>> ~p ~p ~n", [Sock, Whatever]),
+ {tcp, Sock, Whatever} ->
+ io:format(">>> ~p ~p~n", [Sock, Whatever]),
loop(Sock);
{tcp_closed, Sock} ->
io:format(">>> closed", []),