From 73d115ce6260e97f5f7ee47f743d842ffd292662 Mon Sep 17 00:00:00 2001
From: Adelyn Breelove <tenseiken595@gmail.com>
Date: Thu, 13 Dec 2018 14:11:54 -0700
Subject: Working on deriving types from json

---
 lib/models/message.atd | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 lib/models/message.atd

(limited to 'lib/models/message.atd')

diff --git a/lib/models/message.atd b/lib/models/message.atd
new file mode 100644
index 0000000..88c60ec
--- /dev/null
+++ b/lib/models/message.atd
@@ -0,0 +1,29 @@
+type snowflake <ocaml from="Snowflake" t="t"> = abstract
+type user <ocaml from="User" t="t"> = abstract
+type member <ocaml from="Member" t="t"> = abstract
+type role <ocaml from="Role" t="t"> = abstract
+type attachment <ocaml from="Attachment" t="t"> = abstract
+type embed <ocaml from="Embed" t="t"> = abstract
+type reaction <ocaml from="Reaction" t="t"> = abstract
+
+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 <json name="type">: int;
+}
\ No newline at end of file
-- 
cgit v1.2.3


From 179d9598fe62e2966471b312fd438e98ff3a272a Mon Sep 17 00:00:00 2001
From: Adelyn Breelove <tenseiken595@gmail.com>
Date: Thu, 13 Dec 2018 15:50:37 -0700
Subject: Fix more dispatch issues

---
 lib/models/message.atd | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/models/message.atd')

diff --git a/lib/models/message.atd b/lib/models/message.atd
index 88c60ec..1c90be9 100644
--- a/lib/models/message.atd
+++ b/lib/models/message.atd
@@ -1,6 +1,7 @@
 type snowflake <ocaml from="Snowflake" t="t"> = abstract
 type user <ocaml from="User" t="t"> = abstract
 type member <ocaml from="Member" t="t"> = abstract
+type partial_member <ocaml from="Member" t="partial_member"> = abstract
 type role <ocaml from="Role" t="t"> = abstract
 type attachment <ocaml from="Attachment" t="t"> = abstract
 type embed <ocaml from="Embed" t="t"> = abstract
@@ -10,7 +11,7 @@ type t = {
     id: snowflake;
     author: user;
     channel_id: snowflake;
-    ?member: member option;
+    ?member: partial_member option;
     ?guild_id: snowflake option;
     content: string;
     timestamp: string;
-- 
cgit v1.2.3