anchor.diff:  
   init([Mod,Host,Port,Path]) ->
       ModState = Mod:ws_init(),
  -    {ok, Sock} = gen_tcp:connect(Host,Port,[binary,{packet, http},{active,true}]),
  +    {ok, Sock} = gen_tcp:connect(Host,Port,[binary,{packet, http},{active,true}], 1000),
       Req = initial_request(Host,Path),
       ok = gen_tcp:send(Sock,Req),
       inet:setopts(Sock, [{packet, http}]),
  
positive.code:     "Sec-WebSocket-Key: x3JJHMbDL1EzLkh9GBhXDw==\r\n" ++
      "Sec-WebSocket-Protocol: chat\r\n" ++
      "Sec-WebSocket-Version: 13\r\n" ++
      "Origin: http://" ++ Host ++ "/\r\n\r\n" ++
      "draft-hixie: 68".
  
  %% not enough data for a complete frame
  unframe(Data) when byte_size(Data) =:= 1 ->
  
negative.code:                1  -> text;
                 2  -> binary;
                 9  -> ping;
                 8  -> close;
                 10 -> pong
             end,
      {Type, Payload}.
  