anchor.diff:        {stop, {in_closed, Reason}, State}
     end;
   handle_info({ssl_closed, SslSocket}, State = #state{out_socket = SslSocket}) ->
  -  {stop, normal, State};
  +  {stop, connection_closed_by_remote_server, State};
   handle_info(Request, State) ->
     {stop, {unknown_request, Request}, State}.
   
  
positive.code: parse_status(6) -> missing_topic_size;
  parse_status(7) -> missing_payload_size;
  parse_status(8) -> invalid_token;
  parse_status(_) -> unknown.
negative.code:     {[{<<"aps">>, do_build_payload(Params, [])} | Extra]}).
  do_build_payload([{Key,Value}|Params], Payload) -> 
    case Value of
      Value when is_list(Value); is_binary(Value) ->
        do_build_payload(Params, [{atom_to_binary(Key, utf8), unicode:characters_to_binary(Value)} | Payload]);
      Value when is_integer(Value) ->
        do_build_payload(Params, [{atom_to_binary(Key, utf8), Value} | Payload]);
  