type snowflake <ocaml from="Snowflake" t="t"> = abstract
type user <ocaml from="User" t="t"> = abstract

type t = {
    user: user;
    ?nick: string option;
    roles: snowflake list;
    joined_at: string;
    deaf: bool;
    mute: bool;
}