From 73d115ce6260e97f5f7ee47f743d842ffd292662 Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Thu, 13 Dec 2018 14:11:54 -0700 Subject: Working on deriving types from json --- lib/models/message_t.mli | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 lib/models/message_t.mli (limited to 'lib/models/message_t.mli') diff --git a/lib/models/message_t.mli b/lib/models/message_t.mli new file mode 100644 index 0000000..3d37442 --- /dev/null +++ b/lib/models/message_t.mli @@ -0,0 +1,38 @@ +(* Auto-generated from "message.atd" *) + [@@@ocaml.warning "-27-32-35-39"] + +type user = User_t.t + +type snowflake = Snowflake_t.t + +type role = Role_t.t + +type reaction = Reaction_t.t + +type member = Member_t.t + +type embed = Embed_t.t + +type attachment = Attachment_t.t + +type t = { + id: snowflake; + author: user; + channel_id: snowflake; + member: member option; + guild_id: snowflake option; + content: string; + timestamp: string; + edited_timestamp: string option; + tts: bool; + mention_everyone: bool; + mentions: user list; + role_mentions: role list; + attachments: attachment list; + embeds: embed list; + reactions: reaction list; + nonce: snowflake option; + pinned: bool; + webhook_id: snowflake; + kind: int +} -- cgit v1.2.3