1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
-module(gleam@httpc).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function]).
-export([send_bits/1, send/1]).
-export_type([charlist/0, erl_http_option/0, body_format/0, erl_option/0]).
-type charlist() :: any().
-type erl_http_option() :: any().
-type body_format() :: binary.
-type erl_option() :: {body_format, body_format()}.
-spec charlist_header({binary(), binary()}) -> {charlist(), charlist()}.
charlist_header(Header) ->
{K, V} = Header,
{erlang:binary_to_list(K), erlang:binary_to_list(V)}.
-spec string_header({charlist(), charlist()}) -> {binary(), binary()}.
string_header(Header) ->
{K, V} = Header,
{erlang:list_to_binary(K), erlang:list_to_binary(V)}.
-spec send_bits(gleam@http@request:request(bitstring())) -> {ok,
gleam@http@response:response(bitstring())} |
{error, gleam@dynamic:dynamic_()}.
send_bits(Req) ->
Erl_url = begin
_pipe = Req,
_pipe@1 = gleam@http@request:to_uri(_pipe),
_pipe@2 = gleam@uri:to_string(_pipe@1),
erlang:binary_to_list(_pipe@2)
end,
Erl_headers = gleam@list:map(erlang:element(3, Req), fun charlist_header/1),
Erl_http_options = [],
Erl_options = [{body_format, binary}],
gleam@result:then(case erlang:element(2, Req) of
options ->
Erl_req = {Erl_url, Erl_headers},
httpc:request(
erlang:element(2, Req),
Erl_req,
Erl_http_options,
Erl_options
);
head ->
Erl_req = {Erl_url, Erl_headers},
httpc:request(
erlang:element(2, Req),
Erl_req,
Erl_http_options,
Erl_options
);
get ->
Erl_req = {Erl_url, Erl_headers},
httpc:request(
erlang:element(2, Req),
Erl_req,
Erl_http_options,
Erl_options
);
_ ->
Erl_content_type = begin
_pipe@3 = Req,
_pipe@4 = gleam@http@request:get_header(
_pipe@3,
<<"content-type"/utf8>>
),
_pipe@5 = gleam@result:unwrap(
_pipe@4,
<<"application/octet-stream"/utf8>>
),
erlang:binary_to_list(_pipe@5)
end,
Erl_req@1 = {Erl_url,
Erl_headers,
Erl_content_type,
erlang:element(4, Req)},
httpc:request(
erlang:element(2, Req),
Erl_req@1,
Erl_http_options,
Erl_options
)
end, fun(Response) ->
{{_, Status, _}, Headers, Resp_body} = Response,
{ok,
{response,
Status,
gleam@list:map(Headers, fun string_header/1),
Resp_body}}
end).
-spec send(gleam@http@request:request(binary())) -> {ok,
gleam@http@response:response(binary())} |
{error, gleam@dynamic:dynamic_()}.
send(Req) ->
gleam@result:then(
begin
_pipe = Req,
_pipe@1 = gleam@http@request:map(_pipe, fun gleam_stdlib:identity/1),
send_bits(_pipe@1)
end,
fun(Resp) -> case gleam@bit_array:to_string(erlang:element(4, Resp)) of
{ok, Body} ->
{ok, gleam@http@response:set_body(Resp, Body)};
{error, _} ->
{error,
gleam@dynamic:from(
<<"Response body was not valid UTF-8"/utf8>>
)}
end end
).
|
