anchor.diff:              {error, Reason}
       end.
   
  -
   %% @private
   %% @doc Get all of the values for the keys provided from the proplist.
   -spec get_values([Key], [proplists:property()]) ->
  
positive.code: %%==============================================================================
  %% Internal Functions
  %%==============================================================================
  
  %% @private
  %% @doc Split a domain into an iolist
  
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}} ->
  