anchor.diff:  %%==============================================================================
   %% Internal Functions
   %%==============================================================================
  +
  +%% @private
  +%% @doc Turn a tuple into a query string
  +-spec to_query_string(tuple) -> {ok, binary()} | {error, _}.
  +to_query_string(Props) ->
  +  << <<(atom_to_binary(K, utf8))/binary, "=", V/binary, "&">> || {K, V} <- Props >>.
   
   %% @private
   %% @doc Split a domain into an iolist
  
positive.code:             {error, Reason}
      end.
  
  
  %% @private
  %% @doc Get all of the values for the keys provided from the proplist.
  -spec get_values([Key], [proplists:property()]) ->
  
negative.code:                         RefreshUrl,
                          {ClientID, ClientSecret})
    when is_binary(ClientID) andalso is_binary(ClientSecret) ->
      Body = http_uri:encode(to_query_string([{client_id, ClientID},
                         {client_secret, ClientSecret},
                         {refresh_token, RefreshToken},
                         {grant_type, <<"refresh_token">>}])),
      ContentType = "application/x-www-form-urlencoded",
      case httpc:request(post, {binary_to_list(RefreshUrl), [], ContentType, Body}, [], []) of
          {ok, {{_, 200, _}, _, Body}} ->
  