defmodule Server do
  def start(addr) do
    accept_loop(addr)
  end

  defp accept_loop(addr) do
    case :gen_tcp.accept(addr) do
      {:ok, socket} ->
        accept(socket)
    end
    accept_loop(addr)
  end

  defp accept(socket) do
    send(Server.Conn, socket)
  end
end