1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
type snowflake <ocaml from="Snowflake" t="t"> = abstract type user <ocaml from="User" t="t"> = abstract type partial_member = { ?nick: string option; roles: snowflake list; joined_at: string; deaf: bool; mute: bool; } type t = { inherit partial_member; user: user; }