anchor.diff:  
   handle_cast(flush_frames, State) ->
       {noreply, State#state{recv_frames = []}};
  -handle_cast({connect, Pid}, State = #state{host = Host, port = Port,
  -                                           path = Path, key = Key}) ->
  +handle_cast(connect, 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}};
  +    {noreply, State#state{sock = Sock}};
   handle_cast(
     {send, Op, Data},
     State = #state{sock = Sock, readystate = ?OPEN}
  
positive.code: %%----------------------------------------------------------------------------
  
  connect(Pid) ->
      gen_server:cast(Pid, {connect, self()}).
  
  get_frames(Pid) ->
      gen_server:call(Pid, get_frames).
  
negative.code:                 host, port, path,
                  sock,
                  headers,
                  buffer = <<>>,
                  op_cont,
                  recv_frames = []}).
  