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
|
-module(priv@aoc_client).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function]).
-export([get_input/3]).
-spec get_input(binary(), binary(), binary()) -> {ok, binary()} |
{error, binary()}.
get_input(Year, Day, Session) ->
Url = <<<<<<<<"https://adventofcode.com/"/utf8, Year/binary>>/binary,
"/day/"/utf8>>/binary,
Day/binary>>/binary,
"/input"/utf8>>,
gleam@result:'try'(
begin
_pipe = gleam@http@request:to(Url),
gleam@result:map_error(
_pipe,
fun(Error) ->
<<<<<<"Could not create request for \""/utf8, Url/binary>>/binary,
"\": "/utf8>>/binary,
(gleam@string:inspect(Error))/binary>>
end
)
end,
fun(Request) ->
gleam@result:'try'(
begin
_pipe@1 = Request,
_pipe@2 = gleam@http@request:prepend_header(
_pipe@1,
<<"Accept"/utf8>>,
<<"application/json"/utf8>>
),
_pipe@3 = gleam@http@request:prepend_header(
_pipe@2,
<<"Cookie"/utf8>>,
<<<<"session="/utf8, Session/binary>>/binary, ";"/utf8>>
),
_pipe@4 = gleam@httpc:send(_pipe@3),
gleam@result:map_error(
_pipe@4,
fun(Error@1) ->
<<<<<<"Error when requesting \""/utf8, Url/binary>>/binary,
"\": "/utf8>>/binary,
(gleam@string:inspect(Error@1))/binary>>
end
)
end,
fun(Response) -> case erlang:element(2, Response) of
Status when (Status >= 200) andalso (Status < 300) ->
{ok, erlang:element(4, Response)};
Status@1 ->
{error,
<<<<(gleam@int:to_string(Status@1))/binary,
" - "/utf8>>/binary,
(erlang:element(4, Response))/binary>>}
end end
)
end
).
|
