From 1a73007b3aaa17940173eaff1eb4f6703fd9ec0c Mon Sep 17 00:00:00 2001
From: Adelyn Breelove <tenseiken595@gmail.com>
Date: Wed, 19 Dec 2018 13:44:04 -0700
Subject: Re-arrange autogen serialization files and incorporate into dune file

---
 lib/member.atd | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 lib/member.atd

(limited to 'lib/member.atd')

diff --git a/lib/member.atd b/lib/member.atd
new file mode 100644
index 0000000..11d8b62
--- /dev/null
+++ b/lib/member.atd
@@ -0,0 +1,15 @@
+type snowflake <ocaml from="Snowflake" t="t"> = abstract
+type user <ocaml from="User" t="t"> = abstract
+
+type partial_member = {
+    ?nick: string option;
+    roles: snowflake list;
+    joined_at: string;
+    deaf: bool;
+    mute: bool;
+}
+
+type t = {
+    inherit partial_member;
+    user: user;
+}
\ No newline at end of file
-- 
cgit v1.2.3


From 66e1462b8dd3f2b89cf066f314eeb9070b05be69 Mon Sep 17 00:00:00 2001
From: Adelyn Breelove <tenseiken595@gmail.com>
Date: Wed, 19 Dec 2018 15:50:16 -0700
Subject: Fix member abstraction and helper methods

---
 lib/member.atd | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'lib/member.atd')

diff --git a/lib/member.atd b/lib/member.atd
index 11d8b62..c87e40c 100644
--- a/lib/member.atd
+++ b/lib/member.atd
@@ -9,7 +9,17 @@ type partial_member = {
     mute: bool;
 }
 
-type t = {
+type member = {
     inherit partial_member;
     user: user;
+}
+
+type member_update = {
+    guild_id <json name="id">: snowflake;
+    member: member;
+}
+
+type t = {
+    inherit member;
+    guild_id: snowflake;
 }
\ No newline at end of file
-- 
cgit v1.2.3