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/guild.atd | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 lib/guild.atd

(limited to 'lib/guild.atd')

diff --git a/lib/guild.atd b/lib/guild.atd
new file mode 100644
index 0000000..aec3f86
--- /dev/null
+++ b/lib/guild.atd
@@ -0,0 +1,36 @@
+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="role"> = abstract
+type channel <ocaml from="Channel" t="t"> = abstract
+type emoji <ocaml from="Emoji" t="t"> = abstract
+
+
+type t = {
+    id: snowflake;
+    name: string;
+    ?icon: string option;
+    ?splash: string option;
+    owner_id: snowflake;
+    region: string;
+    ?afk_channel_id: snowflake option;
+    afk_timeout: int;
+    ?embed_enabled: bool option;
+    ?embed_channel_id: snowflake option;
+    verification_level: int;
+    default_message_notifications: int;
+    explicit_content_filter: int;
+    roles: role list;
+    emojis: emoji list;
+    features: string list;
+    mfa_level: int;
+    ?application_id: snowflake option;
+    ?widget_enabled: bool option;
+    ?widget_channel: channel option;
+    ?system_channel: channel option;
+    ?large: bool option;
+    ?unavailable: bool option;
+    ?member_count: int option;
+    ~members: member list;
+    ~channels: channel list;
+}
\ No newline at end of file
-- 
cgit v1.2.3


From 9e3c97eb4f5d8a808844cb2e448371ce1cc150e1 Mon Sep 17 00:00:00 2001
From: Adelyn Breelove <tenseiken595@gmail.com>
Date: Thu, 20 Dec 2018 16:03:27 -0700
Subject: Working with Discord's channel bullshit

---
 lib/guild.atd | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'lib/guild.atd')

diff --git a/lib/guild.atd b/lib/guild.atd
index aec3f86..c290b5f 100644
--- a/lib/guild.atd
+++ b/lib/guild.atd
@@ -1,8 +1,8 @@
 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 member <ocaml from="Member" t="member"> = abstract
 type role <ocaml from="Role" t="role"> = abstract
-type channel <ocaml from="Channel" t="t"> = abstract
+type channel <ocaml from="Channel" t="channel_wrapper"> = abstract
 type emoji <ocaml from="Emoji" t="t"> = abstract
 
 
@@ -28,8 +28,8 @@ type t = {
     ?widget_enabled: bool option;
     ?widget_channel: channel option;
     ?system_channel: channel option;
-    ?large: bool option;
-    ?unavailable: bool option;
+    ~large: bool;
+    ~unavailable: bool;
     ?member_count: int option;
     ~members: member list;
     ~channels: channel list;
-- 
cgit v1.2.3