anchor.diff:                  host, port, path,
                   sock,
                   headers,
  -                listener,
                   buffer = <<>>,
                   op_cont,
                   recv_frames = []}).
  
positive.code: 
  handle_cast(flush_frames, State) ->
      {noreply, State#state{recv_frames = []}};
  handle_cast({connect, Pid}, State = #state{host = Host, port = Port,
                                             path = Path, key = Key}) ->
      {ok, Sock} = gen_tcp:connect(Host, Port, [binary, {packet, 0},
                                                {active,true}]),
      Req = initial_request(Host, Port, Path, Key),
      inet:setopts(Sock, [{packet, http}]),
      ok = gen_tcp:send(Sock, Req),
      {noreply, State#state{sock = Sock, listener = Pid}};
  handle_cast(
    {send, Op, Data},
    State = #state{sock = Sock, readystate = ?OPEN}
  
negative.code: %%----------------------------------------------------------------------------
  
  connect(Pid) ->
      gen_server:cast(Pid, connect).
  
  get_frames(Pid) ->
      gen_server:call(Pid, get_frames).
  