Whitespace cleanup [ci skip]

This commit is contained in:
Gavin M. Roy 2016-01-22 10:38:50 -05:00
parent 63a72b114e
commit 074dffa0dd

View file

@ -79,7 +79,8 @@ parse(Value) ->
case http_uri:parse(Value, [{scheme_defaults, http_uri:scheme_defaults()}, {fragment, true}]) of case http_uri:parse(Value, [{scheme_defaults, http_uri:scheme_defaults()}, {fragment, true}]) of
{ok, {Scheme, UserInfo, Host, Port, Path, Query, Fragment}} -> {ok, {Scheme, UserInfo, Host, Port, Path, Query, Fragment}} ->
{Scheme, {parse_userinfo(UserInfo), Host, Port}, Path, parse_query(Query), parse_fragment(Fragment)}; {Scheme, {parse_userinfo(UserInfo), Host, Port}, Path, parse_query(Query), parse_fragment(Fragment)};
{error, Reason} -> {error, Reason} {error, Reason} ->
{error, Reason}
end. end.
@ -94,7 +95,8 @@ parse(Value, url) ->
{ok, {Scheme, UserInfo, Host, Port, Path, Query, Fragment}} -> {ok, {Scheme, UserInfo, Host, Port, Path, Query, Fragment}} ->
{Username, Password} = parse_userinfo(UserInfo), {Username, Password} = parse_userinfo(UserInfo),
{Scheme, Username, Password, Host, Port, Path, parse_query(Query), parse_fragment(Fragment)}; {Scheme, Username, Password, Host, Port, Path, parse_query(Query), parse_fragment(Fragment)};
{error, Reason} -> {error, Reason} {error, Reason} ->
{error, Reason}
end. end.