From b7f8f0de01c5014703376d7204b62d8e47c9179a Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Thu, 10 Jan 2019 16:15:20 -0700 Subject: Fix some deserializing bits --- lib/models/member_t.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lib/models/member_t.ml') diff --git a/lib/models/member_t.ml b/lib/models/member_t.ml index d7ce337..4132a20 100644 --- a/lib/models/member_t.ml +++ b/lib/models/member_t.ml @@ -4,7 +4,7 @@ type partial_member = { joined_at: string; deaf: bool; mute: bool; -} [@@deriving yojson] +} [@@deriving yojson { strict = false}] type member = { nick: string option [@default None]; @@ -13,12 +13,12 @@ type member = { deaf: bool; mute: bool; user: User_t.t; -} [@@deriving yojson] +} [@@deriving yojson { strict = false}] type member_update = { guild_id: Snowflake.t [@key "id"]; member: member; -} [@@deriving yojson] +} [@@deriving yojson { strict = false}] type t = { nick: string option [@default None]; @@ -28,7 +28,7 @@ type t = { mute: bool; user: User_t.t; guild_id: Snowflake.t; -} [@@deriving yojson] +} [@@deriving 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 -- cgit v1.2.3