glitch

-module(glitch@extended@request_ext).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).

-export([set_headers/2, set_query_string/2]).

-spec set_headers(gleam@http@request:request(OSU), list({binary(), binary()})) -> gleam@http@request:request(OSU).
set_headers(Request, Headers) ->
    New_headers = gleam@list:fold(
        Headers,
        [],
        fun(Acc, Header) ->
            gleam@list:key_set(
                Acc,
                gleam@string:lowercase(erlang:element(1, Header)),
                erlang:element(2, Header)
            )
        end
    ),
    erlang:setelement(3, Request, New_headers).

-spec set_query_string(
    gleam@http@request:request(OSY),
    gleam@option:option(binary())
) -> gleam@http@request:request(OSY).
set_query_string(Request, Query) ->
    erlang:setelement(9, Request, Query).