Don't assume send is always ok

2018-04-26 08:38:46 +02:00 · 2018-04-26 08:38:46 +02:00 · e3baa21bb0
commit e3baa21bb0
parent 14b6f4624a
1 changed files with 4 additions and 2 deletions
--- a/src/enoise.erl
+++ b/src/enoise.erl
@ -293,8 +293,10 @@ check_gen_tcp(TcpSock) ->

 gen_tcp_snd_msg(S = {TcpSock, _, _}, Msg) ->
    Len = byte_size(Msg),
-    ok = gen_tcp:send(TcpSock, <<Len:16, Msg/binary>>),
-    {ok, S}.
+    case gen_tcp:send(TcpSock, <<Len:16, Msg/binary>>) of
+        ok               -> {ok, S};
+        Err = {error, _} -> Err
+    end.

 gen_tcp_rcv_msg({TcpSock, Active, Buf}, Timeout) ->
    receive {tcp, TcpSock, Data} ->