More deserialization fixes

1 files changed, 26 insertions, 4 deletions

diff --git a/lib/models/message_t.ml b/lib/models/message_t.ml
index b8aa204..f793223 100644
--- a/lib/models/message_t.ml
+++ b/lib/models/message_t.ml
@@ -1,3 +1,25 @@
+type message_update = {
+    id: Snowflake.t;
+    author: User_t.t option [@default None];
+    channel_id: Snowflake.t;
+    member: Member_t.partial_member option [@default None];
+    guild_id: Snowflake.t option [@default None];
+    content: string option [@default None];
+    timestamp: string option [@default None];
+    editedimestamp: string option [@default None];
+    tts: bool option [@default None];
+    mention_everyone: bool option [@default None];
+    mentions: Snowflake.t list [@default []];
+    role_mentions: Snowflake.t list [@default []];
+    attachments: Attachment.t list [@default []];
+    embeds: Embed.t list [@default []];
+    reactions: Snowflake.t list [@default []];
+    nonce: Snowflake.t option [@default None];
+    pinned: bool option [@default None];
+    webhook_id: Snowflake.t option [@default None];
+    kind: int option [@default None][@key "type"];
+} [@@deriving yojson { strict = false}]
+
 type t = {
     id: Snowflake.t;
     author: User_t.t;
@@ -9,10 +31,10 @@ type t = {
     editedimestamp: string option [@default None];
     tts: bool;
     mention_everyone: bool;
-    mentions: Snowflake.t list;
-    role_mentions: Snowflake.t list [@default []];
-    attachments: Attachment.t list;
-    embeds: Embed.t list;
+    (* mentions: Snowflake.t list [@default []]; *)
+    (* role_mentions: Snowflake.t list [@default []]; *)
+    attachments: Attachment.t list [@default []];
+    embeds: Embed.t list [@default []];
     reactions: Snowflake.t list [@default []];
     nonce: Snowflake.t option [@default None];
     pinned: bool;