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
|
-module(gleam@http@response).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function]).
-export([new/1, get_header/2, set_header/3, prepend_header/3, set_body/2, try_map/2, map/2, redirect/1, get_cookies/1, set_cookie/4, expire_cookie/3]).
-export_type([response/1]).
-type response(GFN) :: {response, integer(), list({binary(), binary()}), GFN}.
-spec new(integer()) -> response(binary()).
new(Status) ->
{response, Status, [], <<""/utf8>>}.
-spec get_header(response(any()), binary()) -> {ok, binary()} | {error, nil}.
get_header(Response, Key) ->
gleam@list:key_find(
erlang:element(3, Response),
gleam@string:lowercase(Key)
).
-spec set_header(response(GGC), binary(), binary()) -> response(GGC).
set_header(Response, Key, Value) ->
Headers = gleam@list:key_set(
erlang:element(3, Response),
gleam@string:lowercase(Key),
Value
),
erlang:setelement(3, Response, Headers).
-spec prepend_header(response(GGF), binary(), binary()) -> response(GGF).
prepend_header(Response, Key, Value) ->
Headers = [{gleam@string:lowercase(Key), Value} |
erlang:element(3, Response)],
erlang:setelement(3, Response, Headers).
-spec set_body(response(any()), GGK) -> response(GGK).
set_body(Response, Body) ->
{response, Status, Headers, _} = Response,
{response, Status, Headers, Body}.
-spec try_map(response(GFO), fun((GFO) -> {ok, GFQ} | {error, GFR})) -> {ok,
response(GFQ)} |
{error, GFR}.
try_map(Response, Transform) ->
gleam@result:then(
Transform(erlang:element(4, Response)),
fun(Body) -> {ok, set_body(Response, Body)} end
).
-spec map(response(GGM), fun((GGM) -> GGO)) -> response(GGO).
map(Response, Transform) ->
_pipe = erlang:element(4, Response),
_pipe@1 = Transform(_pipe),
set_body(Response, _pipe@1).
-spec redirect(binary()) -> response(binary()).
redirect(Uri) ->
{response,
303,
[{<<"location"/utf8>>, Uri}],
gleam@string:append(<<"You are being redirected to "/utf8>>, Uri)}.
-spec get_cookies(response(any())) -> list({binary(), binary()}).
get_cookies(Resp) ->
{response, _, Headers, _} = Resp,
_pipe = Headers,
_pipe@1 = gleam@list:filter_map(
_pipe,
fun(Header) ->
{Name, Value} = Header,
case Name of
<<"set-cookie"/utf8>> ->
{ok, gleam@http@cookie:parse(Value)};
_ ->
{error, nil}
end
end
),
gleam@list:flatten(_pipe@1).
-spec set_cookie(
response(GGT),
binary(),
binary(),
gleam@http@cookie:attributes()
) -> response(GGT).
set_cookie(Response, Name, Value, Attributes) ->
prepend_header(
Response,
<<"set-cookie"/utf8>>,
gleam@http@cookie:set_header(Name, Value, Attributes)
).
-spec expire_cookie(response(GGW), binary(), gleam@http@cookie:attributes()) -> response(GGW).
expire_cookie(Response, Name, Attributes) ->
Attrs = erlang:setelement(2, Attributes, {some, 0}),
set_cookie(Response, Name, <<""/utf8>>, Attrs).
|
