Current section

Files

Jump to
gleam_stdlib gen src gleam@dynamic.erl
Raw

gen/src/gleam@dynamic.erl

-module(gleam@dynamic).
-compile(no_auto_import).
-export([from/1, unsafe_coerce/1, bit_string/1, string/1, int/1, float/1, atom/1, bool/1, thunk/1, list/1, typed_list/2, option/2, field/2, element/2, tuple2/1, typed_tuple2/3, map/1, any/2]).
from(A) ->
gleam_stdlib:identity(A).
unsafe_coerce(A) ->
gleam_stdlib:identity(A).
bit_string(A) ->
gleam_stdlib:decode_bit_string(A).
string(From) ->
gleam@result:then(
gleam_stdlib:decode_bit_string(From),
fun(Raw) -> case gleam@bit_string:to_string(Raw) of
{ok, String} ->
{ok, String};
{error, nil} ->
{error, <<"Expected a string, got a bit_string"/utf8>>}
end end
).
int(A) ->
gleam_stdlib:decode_int(A).
float(A) ->
gleam_stdlib:decode_float(A).
atom(A) ->
gleam_stdlib:decode_atom(A).
bool(A) ->
gleam_stdlib:decode_bool(A).
thunk(A) ->
gleam_stdlib:decode_thunk(A).
list(A) ->
gleam_stdlib:decode_list(A).
typed_list(Dynamic, DecoderType) ->
gleam@result:then(
gleam_stdlib:decode_list(Dynamic),
fun(GleamCaptureVariable) ->
gleam@list:try_map(GleamCaptureVariable, DecoderType)
end
).
option(Dynamic, Decoder) ->
{ok, Null} = gleam@atom:from_string(<<"null"/utf8>>),
case {gleam_stdlib:decode_atom(Dynamic), Decoder(Dynamic)} of
{{ok, Atom}, _} when Atom =:= Null ->
{ok, none};
{_, {ok, Result}} ->
{ok, {some, Result}};
{_, {error, Msg}} ->
{error, Msg}
end.
field(A, B) ->
gleam_stdlib:decode_field(A, B).
element(A, B) ->
gleam_stdlib:decode_element(A, B).
tuple2(A) ->
gleam_stdlib:decode_tuple2(A).
typed_tuple2(Tup, DecodeFirst, DecodeSecond) ->
case gleam_stdlib:decode_tuple2(Tup) of
{error, GleamTryError} -> {error, GleamTryError};
{ok, {First, Second}} ->
case DecodeFirst(First) of
{error, GleamTryError@1} -> {error, GleamTryError@1};
{ok, A} ->
case DecodeSecond(Second) of
{error, GleamTryError@2} -> {error, GleamTryError@2};
{ok, B} ->
{ok, {A, B}}
end
end
end.
map(A) ->
gleam_stdlib:decode_map(A).
any(Data, Decoders) ->
gleam@result:map_error(
gleam@list:find_map(Decoders, fun(Decoder) -> Decoder(Data) end),
fun(_) -> <<"Unexpected value"/utf8>> end
).