TCP echo server

src/tcp/tcp_ffi.erl

@@ -1,8 +1,14 @@
 -module(tcp_ffi).
--export([send/2]).
+-export([send/2, shutdown/2]).
 
 send(Socket, Packet) ->
   case gen_tcp:send(Socket, Packet) of
     ok -> {ok, nil};
     Res -> Res
   end.
+
+shutdown(Socket, How) ->
+  case gen_tcp:shutdown(Socket, How) of
+    ok -> {ok, nil};
+    Res -> Res
+  end.