finish making model signatures

4 files changed, 132 insertions, 0 deletions

diff --git a/lib/models/guild/ban_t.mli b/lib/models/guild/ban_t.mli
new file mode 100644
index 0000000..95fb274
--- /dev/null
+++ b/lib/models/guild/ban_t.mli
@@ -0,0 +1,4 @@
+type t = {
+    reason: string;
+    user: User_t.t;
+} [@@deriving sexp, yojson]
\ No newline at end of file
diff --git a/lib/models/guild/guild_t.mli b/lib/models/guild/guild_t.mli
new file mode 100644
index 0000000..6d9e4d3
--- /dev/null
+++ b/lib/models/guild/guild_t.mli
@@ -0,0 +1,59 @@
+type pre = {
+    id: Snowflake.t;
+    name: string;
+    icon: string option;
+    splash: string option;
+    owner_id: Snowflake.t;
+    region: string;
+    afk_channel_id: Snowflake.t option;
+    afk_timeout: int;
+    embed_enabled: bool option;
+    embed_channel_id: Snowflake.t option;
+    verification_level: int;
+    default_message_notifications: int;
+    explicit_content_filter: int;
+    roles: Role_t.role list;
+    emojis: Emoji.t list;
+    features: string list;
+    mfa_level: int;
+    application_id: Snowflake.t option;
+    widget_enabled: bool option;
+    widget_channel: Channel_t.channel_wrapper option;
+    system_channel: Channel_t.channel_wrapper option;
+    large: bool;
+    unavailable: bool;
+    member_count: int option;
+    members: Member_t.member list;
+    channels: Channel_t.channel_wrapper list;
+} [@@deriving sexp, yojson]
+
+type t = {
+    id: Snowflake.t;
+    name: string;
+    icon: string option;
+    splash: string option;
+    owner_id: Snowflake.t;
+    region: string;
+    afk_channel_id: Snowflake.t option;
+    afk_timeout: int;
+    embed_enabled: bool option;
+    embed_channel_id: Snowflake.t option;
+    verification_level: int;
+    default_message_notifications: int;
+    explicit_content_filter: int;
+    roles: Role_t.t list;
+    emojis: Emoji.t list;
+    features: string list;
+    mfa_level: int;
+    application_id: Snowflake.t option;
+    widget_enabled: bool option;
+    widget_channel: Channel_t.t option;
+    system_channel: Channel_t.t option;
+    large: bool;
+    unavailable: bool;
+    member_count: int option;
+    members: Member_t.t list;
+    channels: Channel_t.t list;
+} [@@deriving sexp, yojson]
+
+val wrap : pre -> t
\ No newline at end of file
diff --git a/lib/models/guild/member_t.mli b/lib/models/guild/member_t.mli
new file mode 100644
index 0000000..4655b33
--- /dev/null
+++ b/lib/models/guild/member_t.mli
@@ -0,0 +1,40 @@
+type partial_member = {
+    nick: string option;
+    roles: Snowflake.t list;
+    joined_at: string;
+    deaf: bool;
+    mute: bool;
+} [@@deriving sexp, yojson]
+
+type member = {
+    nick: string option;
+    roles: Snowflake.t list;
+    joined_at: string;
+    deaf: bool;
+    mute: bool;
+    user: User_t.t;
+} [@@deriving sexp, yojson]
+
+type member_wrapper = {
+    guild_id: Snowflake.t;
+    user: User_t.t;
+} [@@deriving sexp, yojson]
+
+type member_update = {
+    guild_id: Snowflake.t;
+    roles: Snowflake.t list;
+    user: User_t.t;
+    nick: string option;
+} [@@deriving sexp, yojson]
+
+type t = {
+    nick: string option;
+    roles: Snowflake.t list;
+    joined_at: string;
+    deaf: bool;
+    mute: bool;
+    user: User_t.t;
+    guild_id: Snowflake.t;
+} [@@deriving sexp, yojson]
+
+val wrap : guild_id:Snowflake.t -> member -> t
\ No newline at end of file
diff --git a/lib/models/guild/role_t.mli b/lib/models/guild/role_t.mli
new file mode 100644
index 0000000..dd344e1
--- /dev/null
+++ b/lib/models/guild/role_t.mli
@@ -0,0 +1,29 @@
+type role = {
+    id: Snowflake.t;
+    name: string;
+    colour: int;
+    hoist: bool;
+    position: int;
+    permissions: int;
+    managed: bool;
+    mentionable: bool;
+} [@@deriving sexp, yojson]
+
+type role_update = {
+    role: role;
+    guild_id: Snowflake.t;
+} [@@deriving sexp, yojson]
+
+type t = {
+    id: Snowflake.t;
+    name: string;
+    colour: int;
+    hoist: bool;
+    position: int;
+    permissions: int;
+    managed: bool;
+    mentionable: bool;
+    guild_id: Snowflake.t;
+} [@@deriving sexp, yojson]
+
+val wrap : guild_id:Snowflake.t -> role -> t
\ No newline at end of file