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

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

diff --git a/lib/models/guild.atd b/lib/models/guild.atd
new file mode 100644
index 0000000..c622eea
--- /dev/null
+++ b/lib/models/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="t"> = 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 option;
+    ?channels: channel list option;
+}
\ No newline at end of file
-- 
cgit v1.2.3