anchor.diff:      {noreply, State#state{headers=H}};
   handle_info({http,_,http_eoh},State) ->
       {noreply, handshake(State)};
  +handle_info({tcp,_,Data}, State = #state{readystate = ?OPEN}) ->
  +    handleframe(Data),
  +    {noreply, State};
  +handle_info({tcp_closed, _Socket},State) ->
  +    {stop,normal,State};
  +handle_info({tcp_error, _Socket, _Reason},State) ->
  +    {stop,tcp_error,State};
   handle_info(Info, State) ->
       io:format("INFO = ~p~n", [Info]),
       {noreply, State}.
  
positive.code: -export([start_link/1]).
  -export([connect/1]).
  -export([send/2]).
  
  %% gen_server callbacks
  -export([init/1, handle_call/3, handle_cast/2, handle_info/2,
  
negative.code:     {noreply, State#state{sock = Sock}};
  handle_cast({send, Data}, State = #state{sock = Sock}) ->
      io:format("Sending: ~p~n", [Data]),
      Result = gen_tcp:send(Sock, frame(Data)),
      io:format("result: ~p~n", [Result]),
      {noreply, State}.
  
  