Joseph#8035's curiosity

http.ex

defmodule Socket do
  use GenServer

  alias Socket.Worker

  def start_link do
    GenServer.start_link __MODULE__, []
  end

  def init(_state) do
    options = [
      :binary,
      packet: :http,
      active: false,
      ip: {127, 0, 0, 1}
    ]
    {:ok, socket} = :gen_tcp.listen(1337, options)
    send(self(), :loop)
    {:ok, socket}
  end

  def handle_info(:loop, socket) do
    {:ok, client} = :gen_tcp.accept(socket)
    Logger.debug "Accepting connection"
    Worker.start_link(client)
    send(self(), :loop)
    {:noreply, socket}
  end
end

defmodule Socket.Worker do
  use GenServer

  def start_link(client) do
    GenServer.start_link __MODULE__, client
  end

  def init(client) do
    options = [
      active: true
    ]
    Port.connect(client, self())
    :inet.setopts(client, options)
    {:ok, client}
  end

  def handle_info(message, client) do
    IO.inspect message
    {:noreply, client}
  end
end