playground

-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", 13).
-spec prepend_header(gleam@http@request:request(HTJ)) -> gleam@http@request:request(HTJ).
prepend_header(Base_request) ->
    gleam@http@request:prepend_header(
        Base_request,
        <<"accept"/utf8>>,
        <<"application/json"/utf8>>
    ).

-file("/Users/bradleymehder/Developer/Frameworks/Gleam/playground/src/fetch.gleam", 17).
-spec base_request(binary()) -> gleam@http@request:request(binary()).
base_request(Url) ->
    case gleam@http@request:to(Url) of
        {ok, Request} ->
            Request;

        {error, nil} ->
            erlang:error(#{gleam_error => panic,
                    message => <<"Unable to create a base request from url."/utf8>>,
                    module => <<"fetch"/utf8>>,
                    function => <<"base_request"/utf8>>,
                    line => 20})
    end.

-file("/Users/bradleymehder/Developer/Frameworks/Gleam/playground/src/fetch.gleam", 4).
-spec send_request(binary()) -> binary().
send_request(Url) ->
    Request = begin
        _pipe = Url,
        _pipe@1 = base_request(_pipe),
        prepend_header(_pipe@1)
    end,
    case gleam@httpc:send(Request) of
        {ok, Response} ->
            erlang:element(4, Response);

        {error, _} ->
            erlang:error(#{gleam_error => panic,
                    message => <<"Something went wrong."/utf8>>,
                    module => <<"fetch"/utf8>>,
                    function => <<"send_request"/utf8>>,
                    line => 9})
    end.