From 8cb637feadfb74702c33e6076d2d2712ff2f6b12 Mon Sep 17 00:00:00 2001 From: Tim Fletcher Date: Thu, 6 Nov 2008 23:06:10 +0000 Subject: [PATCH] Remove oauth_http. --- src/oauth.erl | 5 +++-- src/oauth_http.erl | 12 ------------ 2 files changed, 3 insertions(+), 14 deletions(-) delete mode 100644 src/oauth_http.erl diff --git a/src/oauth.erl b/src/oauth.erl index cb420d5..46ce8c3 100644 --- a/src/oauth.erl +++ b/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}, [], []). diff --git a/src/oauth_http.erl b/src/oauth_http.erl deleted file mode 100644 index 1fdf5e4..0000000 --- a/src/oauth_http.erl +++ /dev/null @@ -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}). \ No newline at end of file