Current section

Files

Jump to
discord_gleam src discord_gleam@ws@packets@ready.erl
Raw

src/discord_gleam@ws@packets@ready.erl

-module(discord_gleam@ws@packets@ready).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).
-export([string_to_data/1]).
-export_type([ready_user/0, ready_data/0, ready_packet/0]).
-type ready_user() :: {ready_user, binary(), binary(), binary(), boolean()}.
-type ready_data() :: {ready_data, integer(), ready_user()}.
-type ready_packet() :: {ready_packet,
binary(),
integer(),
integer(),
ready_data()}.
-file("src/discord_gleam/ws/packets/ready.gleam", 18).
-spec string_to_data(binary()) -> {ok, ready_packet()} | {error, binary()}.
string_to_data(Encoded) ->
Decoder = begin
gleam@dynamic@decode:field(
<<"t"/utf8>>,
{decoder, fun gleam@dynamic@decode:decode_string/1},
fun(T) ->
gleam@dynamic@decode:field(
<<"s"/utf8>>,
{decoder, fun gleam@dynamic@decode:decode_int/1},
fun(S) ->
gleam@dynamic@decode:field(
<<"op"/utf8>>,
{decoder, fun gleam@dynamic@decode:decode_int/1},
fun(Op) ->
gleam@dynamic@decode:field(
<<"d"/utf8>>,
begin
gleam@dynamic@decode:field(
<<"v"/utf8>>,
{decoder,
fun gleam@dynamic@decode:decode_int/1},
fun(V) ->
gleam@dynamic@decode:field(
<<"user"/utf8>>,
begin
gleam@dynamic@decode:field(
<<"username"/utf8>>,
{decoder,
fun gleam@dynamic@decode:decode_string/1},
fun(Username) ->
gleam@dynamic@decode:field(
<<"id"/utf8>>,
discord_gleam@discord@snowflake:decoder(
),
fun(Id) ->
gleam@dynamic@decode:field(
<<"discriminator"/utf8>>,
{decoder,
fun gleam@dynamic@decode:decode_string/1},
fun(
Discriminator
) ->
gleam@dynamic@decode:field(
<<"bot"/utf8>>,
{decoder,
fun gleam@dynamic@decode:decode_bool/1},
fun(
Bot
) ->
gleam@dynamic@decode:success(
{ready_user,
Username,
Id,
Discriminator,
Bot}
)
end
)
end
)
end
)
end
)
end,
fun(User) ->
gleam@dynamic@decode:success(
{ready_data,
V,
User}
)
end
)
end
)
end,
fun(D) ->
gleam@dynamic@decode:success(
{ready_packet, T, S, Op, D}
)
end
)
end
)
end
)
end
)
end,
_pipe = gleam@json:parse(Encoded, Decoder),
gleam@result:map_error(
_pipe,
fun(_) -> <<"Failed to decode MessagePacket"/utf8>> end
).