fix(scheme): fix scheme parsing
This commit is contained in:
parent
a631a2d64f
commit
311df2f8a6
|
@ -55,10 +55,11 @@ translate_env(EnvName) ->
|
||||||
URL = proplists:get_value(url, Req),
|
URL = proplists:get_value(url, Req),
|
||||||
#{host := Host0,
|
#{host := Host0,
|
||||||
path := Path0,
|
path := Path0,
|
||||||
scheme := Scheme} = URIMap = uri_string:parse(add_default_scheme(URL)),
|
scheme := Scheme0} = URIMap = uri_string:parse(add_default_scheme(URL)),
|
||||||
|
Scheme = string:to_lower(Scheme0),
|
||||||
Port = maps:get(port, URIMap, case Scheme of
|
Port = maps:get(port, URIMap, case Scheme of
|
||||||
"https" -> 443;
|
"https" -> 443;
|
||||||
_ -> 80
|
"http" -> 80
|
||||||
end),
|
end),
|
||||||
Path = path(Path0),
|
Path = path(Path0),
|
||||||
{Inet, Host} = parse_host(Host0),
|
{Inet, Host} = parse_host(Host0),
|
||||||
|
|
Loading…
Reference in New Issue