aboutsummaryrefslogtreecommitdiff
path: root/aoc2023/build/packages/gleam_httpc/src/gleam@httpc.erl
diff options
context:
space:
mode:
Diffstat (limited to 'aoc2023/build/packages/gleam_httpc/src/gleam@httpc.erl')
-rw-r--r--aoc2023/build/packages/gleam_httpc/src/gleam@httpc.erl118
1 files changed, 0 insertions, 118 deletions
diff --git a/aoc2023/build/packages/gleam_httpc/src/gleam@httpc.erl b/aoc2023/build/packages/gleam_httpc/src/gleam@httpc.erl
deleted file mode 100644
index 1d634df..0000000
--- a/aoc2023/build/packages/gleam_httpc/src/gleam@httpc.erl
+++ /dev/null
@@ -1,118 +0,0 @@
--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
- ).