anchor.diff:  
   hixie76_location_test() ->
   	?assertEqual(<<"ws://localhost/path">>,
  -		hixie76_location(other, <<"localhost">>, 80, <<"/path">>)),
  +		hixie76_location(other, <<"localhost">>, 80, <<"/path">>, <<>>)),
   	?assertEqual(<<"ws://localhost:8080/path">>,
  -		hixie76_location(other, <<"localhost">>, 8080, <<"/path">>)),
  +		hixie76_location(other, <<"localhost">>, 8080, <<"/path">>, <<>>)),
  +	?assertEqual(<<"ws://localhost:8080/path?dummy=2785">>,
  +		hixie76_location(other, <<"localhost">>, 8080, <<"/path">>, <<"dummy=2785">>)),
   	?assertEqual(<<"wss://localhost/path">>,
  -		hixie76_location(ssl, <<"localhost">>, 443, <<"/path">>)),
  +		hixie76_location(ssl, <<"localhost">>, 443, <<"/path">>, <<>>)),
   	?assertEqual(<<"wss://localhost:8443/path">>,
  -		hixie76_location(ssl, <<"localhost">>, 8443, <<"/path">>)),
  +		hixie76_location(ssl, <<"localhost">>, 8443, <<"/path">>, <<>>)),
  +	?assertEqual(<<"wss://localhost:8443/path?dummy=2785">>,
  +		hixie76_location(ssl, <<"localhost">>, 8443, <<"/path">>, <<"dummy=2785">>)),
   	ok.
   
   -endif.
  
positive.code: 	Spaces = length([C || << C >> <= Key, C =:= 32]),
  	Number div Spaces.
  
  -spec hixie76_location(atom(), binary(), inet:ip_port(), binary())
  	-> binary().
  hixie76_location(Protocol, Host, Port, Path) ->
  	<< (hixie76_location_protocol(Protocol))/binary, "://", Host/binary,
  		(hixie76_location_port(ssl, Port))/binary, Path/binary >>.
  
  -spec hixie76_location_protocol(atom()) -> binary().
  hixie76_location_protocol(ssl) -> <<"wss">>;
  
negative.code: 
  -spec hixie76_location_port(atom(), inet:ip_port()) -> binary().
  hixie76_location_port(ssl, 443) ->
  	<<>>;
  hixie76_location_port(_, 80) ->
  	<<>>;
  hixie76_location_port(_, Port) ->
  	<<":", (list_to_binary(integer_to_list(Port)))/binary>>.
  
  