summaryrefslogtreecommitdiff
path: root/tda.erl
diff options
context:
space:
mode:
Diffstat (limited to 'tda.erl')
-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", []),