commit 89ebe2cf9afc08ba5f32deb7d8a333f0a28a50e6
author naoya_t <naoya.tozuka+t@gmail.com> Sun Dec 18 20:07:21 2011 +0900
committer naoya_t <naoya.tozuka+t@gmail.com> Sun Dec 18 20:07:21 2011 +0900
tree 3ad94c85fc2e0782ec069a9ad8b168514cd9c59f
parent 7969309dd61afb180a544ab941b189fde389c430

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 ->