From 7c9b809078b5cd53e3d54c0004c683da2ec679af Mon Sep 17 00:00:00 2001 From: Adelyn Breedlove Date: Mon, 11 Feb 2019 17:23:59 +0000 Subject: Add a cache --- lib/models/guild/guild_t.ml | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) (limited to 'lib/models/guild/guild_t.ml') diff --git a/lib/models/guild/guild_t.ml b/lib/models/guild/guild_t.ml index fa9673a..afe3d19 100644 --- a/lib/models/guild/guild_t.ml +++ b/lib/models/guild/guild_t.ml @@ -2,6 +2,7 @@ open Core type unavailable = { id: Guild_id_t.t; + unavailable: bool [@default false]; } [@@deriving sexp, yojson { strict = false; exn = true }] type pre = { @@ -26,11 +27,10 @@ type pre = { widget_enabled: bool [@default false]; widget_channel_id: Channel_id_t.t option [@default None]; system_channel_id: Channel_id_t.t option [@default None]; - large: bool; - unavailable: bool; + large: bool [@default false]; member_count: int option [@default None]; - members: Member_t.member list; - channels: Channel_t.channel_wrapper list; + members: Member_t.member list [@default []]; + channels: Channel_t.channel_wrapper list [@default []]; } [@@deriving sexp, yojson { strict = false; exn = true }] type t = { @@ -56,17 +56,16 @@ type t = { widget_channel_id: Channel_id_t.t option [@default None]; system_channel_id: Channel_id_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; exn = true }] -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_id;system_channel_id;large;unavailable;member_count;members;channels}:pre) = +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_id;system_channel_id;large;member_count;members;channels}:pre) = let `Guild_id id = id in 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 - {id = `Guild_id 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_id;system_channel_id;large;unavailable;member_count;members;channels} + {id = `Guild_id 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_id;system_channel_id;large;member_count;members;channels} let get_id guild = let `Guild_id id = guild.id in id \ No newline at end of file -- cgit v1.2.3