commit 3968d19a95faf2b7acc572c316c5d9d9447ac06b
author Tim Fletcher <mail@tfletcher.com> Sun Dec 18 03:28:26 2011 -0800
committer Tim Fletcher <mail@tfletcher.com> Sun Dec 18 03:28:26 2011 -0800
tree 3ad94c85fc2e0782ec069a9ad8b168514cd9c59f
parent 7969309dd61afb180a544ab941b189fde389c430
parent 89ebe2cf9afc08ba5f32deb7d8a333f0a28a50e6

Merge pull request #9 from naoyat/master

http_uri:parse(URI) now returns {ok,{Scheme,...}} in R15B

src/oauth.erl

diff --git a/src/oauth.erl b/src/oauth.erl
index 5fc563e..d7257ad 100644
--- a/src/oauth.erl
+++ b/src/oauth.erl
@@ -228,6 +228,8 @@
 
 uri_normalize(URI) ->
   case http_uri:parse(URI) of
+    {ok, {Scheme, UserInfo, Host, Port, Path, _Query}} -> % R15B
+      uri_normalize(Scheme, UserInfo, string:to_lower(Host), Port, [Path]);
     {Scheme, UserInfo, Host, Port, Path, _Query} ->
       uri_normalize(Scheme, UserInfo, string:to_lower(Host), Port, [Path]);
     Else ->