Current section
Files
Jump to
Current section
Files
src/fetch.erl
-module(fetch).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).
-export([send_request/1]).
-file("/Users/bradleymehder/Developer/Frameworks/Gleam/playground/src/fetch.gleam", 4).
-spec to_request(binary()) -> gleam@http@request:request(binary()).
to_request(Url) ->
case gleam@http@request:to(Url) of
{ok, Base_req} ->
Base_req;
{error, _} ->
erlang:error(#{gleam_error => panic,
message => <<"Something went wrong."/utf8>>,
module => <<"fetch"/utf8>>,
function => <<"to_request"/utf8>>,
line => 7})
end.
-file("/Users/bradleymehder/Developer/Frameworks/Gleam/playground/src/fetch.gleam", 11).
-spec send_request(binary()) -> gleam@http@response:response(binary()).
send_request(Url) ->
Req = begin
_pipe = Url,
_pipe@1 = to_request(_pipe),
gleam@http@request:prepend_header(
_pipe@1,
<<"accept"/utf8>>,
<<"application/json"/utf8>>
)
end,
case gleam@httpc:send(Req) of
{ok, Resp} ->
Resp;
{error, _} ->
erlang:error(#{gleam_error => panic,
message => <<"Something went wrong."/utf8>>,
module => <<"fetch"/utf8>>,
function => <<"send_request"/utf8>>,
line => 17})
end.