Tim Fletcher 16 лет назад
Родитель
Сommit
e8287b3a6f
1 измененных файлов с 2 добавлено и 4 удалено
  1. 2 4
      src/oauth_hmac.erl

+ 2 - 4
src/oauth_hmac.erl

@@ -8,7 +8,8 @@
 signature({Method, URL, Params}, ConsumerSecret, TokenSecret) ->
   signature(base_string(Method, URL, Params), ConsumerSecret, TokenSecret);
 signature(BaseString, ConsumerSecret, TokenSecret) ->
-  b64(crypto:sha_mac(key(ConsumerSecret, TokenSecret), BaseString)).
+  Key = key(ConsumerSecret, TokenSecret),
+  base64:encode_to_string(crypto:sha_mac(Key, BaseString)).
 
 base_string(Method, URL, Params) when is_list(Method) ->
   Unencoded = [Method, oauth_uri:normalize(URL), normalize(Params)],
@@ -23,9 +24,6 @@ sort(Params) ->
 key(ConsumerSecret, TokenSecret) ->
   fmt:sprintf("%s&%s", [percent_encode(ConsumerSecret), percent_encode(TokenSecret)]).
 
-b64(Data) ->
-  base64:encode_to_string(Data).
-
 to_string({K, V}) when is_atom(K) ->
   {atom_to_list(K), V};
 to_string({K, V}) when is_list(K) ->