Tim Fletcher 16 лет назад
Родитель
Сommit
8cb637fead
2 измененных файлов с 3 добавлено и 14 удалено
  1. 3 2
      src/oauth.erl
  2. 0 12
      src/oauth_http.erl

+ 3 - 2
src/oauth.erl

@@ -12,7 +12,7 @@ get(URL, Consumer, TokenPair) ->
   get(URL, Consumer, TokenPair, []).
 
 get(URL, Consumer, TokenPair, Params) ->
-  oauth_http:get(oauth_request:url("GET", URL, Params, Consumer, TokenPair)).
+  http:request(oauth_request:url("GET", URL, Params, Consumer, TokenPair)).
 
 post(URL, Consumer) ->
   post(URL, Consumer, {[], []}, []).
@@ -24,4 +24,5 @@ post(URL, Consumer, TokenPair) ->
 
 post(URL, Consumer, TokenPair, Params) ->
   Data = oauth_request:params_string("POST", URL, Params, Consumer, TokenPair),
-  oauth_http:post(URL, Data).
+  MimeType = "application/x-www-form-urlencoded",
+  http:request(post, {URL, [], MimeType, Data}, [], []).

+ 0 - 12
src/oauth_http.erl

@@ -1,12 +0,0 @@
--module(oauth_http).
-
--export([get/1, post/2]).
-
-
-get(URL) ->
-  http:request(URL).
-
-post(URL, {MimeType, Data}) ->
-  http:request(post, {URL, [], MimeType, Data}, [], []);
-post(URL, Data) ->
-  post(URL, {"application/x-www-form-urlencoded", Data}).