diff options
Diffstat (limited to 'lib/models/member_t.ml')
| -rw-r--r-- | lib/models/member_t.ml | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lib/models/member_t.ml b/lib/models/member_t.ml index ca39092..e6edb61 100644 --- a/lib/models/member_t.ml +++ b/lib/models/member_t.ml @@ -1,10 +1,12 @@ +open Core + type partial_member = { nick: string option [@default None]; roles: Snowflake.t list; joined_at: string; deaf: bool; mute: bool; -} [@@deriving yojson { strict = false}] +} [@@deriving sexp, yojson { strict = false}] type member = { nick: string option [@default None]; @@ -13,19 +15,19 @@ type member = { deaf: bool; mute: bool; user: User_t.t; -} [@@deriving yojson { strict = false}] +} [@@deriving sexp, yojson { strict = false}] type member_wrapper = { guild_id: Snowflake.t; user: User_t.t; -} [@@deriving yojson { strict = false }] +} [@@deriving sexp, yojson { strict = false }] type member_update = { guild_id: Snowflake.t; roles: Snowflake.t list [@default []]; user: User_t.t; nick: string option [@default None]; -} [@@deriving yojson { strict = false}] +} [@@deriving sexp, yojson { strict = false}] type t = { nick: string option [@default None]; @@ -35,7 +37,7 @@ type t = { mute: bool; user: User_t.t; guild_id: Snowflake.t; -} [@@deriving yojson { strict = false}] +} [@@deriving sexp, yojson { strict = false}] let wrap ~guild_id ({nick;roles;joined_at;deaf;mute;user}:member) = {nick;roles;joined_at;deaf;mute;user;guild_id}
\ No newline at end of file |