howdy

-module(howdy@context@user).
-compile(no_auto_import).

-export([get_claim/2]).
-export_type([user/0]).

-type user() :: {user, binary(), list({binary(), binary()})}.

-spec get_claim(gleam@option:option(user()), binary()) -> {ok, binary()} |
    {error, nil}.
get_claim(User_option, Claim_key) ->
    case User_option of
        {some, User} ->
            _pipe = erlang:element(3, User),
            gleam@list:find_map(
                _pipe,
                fun(Claim) -> case erlang:element(1, Claim) =:= Claim_key of
                        true ->
                            {ok, erlang:element(2, Claim)};

                        false ->
                            {error, nil}
                    end end
            );

        none ->
            {error, nil}
    end.