From c3d6e15bb89d4a93a2fa486db6c8e126baf4da2e Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Mon, 21 Jan 2019 08:52:33 -0700 Subject: folder restructure --- lib/models/guild_t.ml | 67 --------------------------------------------------- 1 file changed, 67 deletions(-) delete mode 100644 lib/models/guild_t.ml (limited to 'lib/models/guild_t.ml') diff --git a/lib/models/guild_t.ml b/lib/models/guild_t.ml deleted file mode 100644 index 6bb5090..0000000 --- a/lib/models/guild_t.ml +++ /dev/null @@ -1,67 +0,0 @@ -open Core - -type pre = { - id: Snowflake.t; - name: string; - icon: string option [@default None]; - splash: string option [@default None]; - owner_id: Snowflake.t; - region: string; - afk_channel_id: Snowflake.t option [@default None]; - afk_timeout: int; - embed_enabled: bool option [@default None]; - embed_channel_id: Snowflake.t option [@default None]; - 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 [@default None]; - widget_enabled: bool option [@default None]; - widget_channel: Channel_t.channel_wrapper option [@default None]; - system_channel: Channel_t.channel_wrapper option [@default None]; - large: bool; - unavailable: bool; - member_count: int option [@default None]; - members: Member_t.member list; - channels: Channel_t.channel_wrapper list; -} [@@deriving sexp, yojson { strict = false }] - -type t = { - id: Snowflake.t; - name: string; - icon: string option [@default None]; - splash: string option [@default None]; - owner_id: Snowflake.t; - region: string; - afk_channel_id: Snowflake.t option [@default None]; - afk_timeout: int; - embed_enabled: bool option [@default None]; - embed_channel_id: Snowflake.t option [@default None]; - 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 [@default None]; - widget_enabled: bool option [@default None]; - widget_channel: Channel_t.t option [@default None]; - system_channel: Channel_t.t option [@default None]; - large: bool; - unavailable: bool; - member_count: int option [@default None]; - members: Member_t.t list; - channels: Channel_t.t list; -} [@@deriving sexp, yojson { strict = false }] - -let wrap ({id;name;icon;splash;owner_id;region;afk_channel_id;afk_timeout;embed_enabled;embed_channel_id;verification_level;default_message_notifications;explicit_content_filter;roles;emojis;features;mfa_level;application_id;widget_enabled;widget_channel;system_channel;large;unavailable;member_count;members;channels}:pre) = - let roles = List.map ~f:(Role_t.wrap ~guild_id:id) roles in - let members = List.map ~f:(Member_t.wrap ~guild_id:id) members in - let channels = List.map ~f:Channel_t.wrap channels in - let widget_channel = Option.map ~f:Channel_t.wrap widget_channel in - let system_channel = Option.map ~f:Channel_t.wrap system_channel in - {id;name;icon;splash;owner_id;region;afk_channel_id;afk_timeout;embed_enabled;embed_channel_id;verification_level;default_message_notifications;explicit_content_filter;roles;emojis;features;mfa_level;application_id;widget_enabled;widget_channel;system_channel;large;unavailable;member_count;members;channels} \ No newline at end of file -- cgit v1.2.3