blob: 2571b34fbe503c23d11a33b9ef2dbab8e6e07485 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
open Core
open Async
module ChannelMap = Map.Make(Channel_id_t)
module GuildMap = Map.Make(Guild_id_t)
module UserMap = Map.Make(User_id_t)
type t = {
text_channels: Channel_t.guild_text ChannelMap.t;
voice_channels: Channel_t.guild_voice ChannelMap.t;
categories: Channel_t.category ChannelMap.t;
groups: Channel_t.group ChannelMap.t;
private_channels: Channel_t.dm ChannelMap.t;
guilds: Guild_t.t GuildMap.t;
presences: Presence.t UserMap.t;
(* messages: Channel_id_t.t GuildMap.t; *)
unavailable_guilds: Guild_t.unavailable GuildMap.t;
user: User_t.t option;
users: User_t.t UserMap.t;
}
let create () = {
text_channels = ChannelMap.empty;
voice_channels = ChannelMap.empty;
categories = ChannelMap.empty;
groups = ChannelMap.empty;
private_channels = ChannelMap.empty;
guilds = GuildMap.empty;
presences = UserMap.empty;
unavailable_guilds = GuildMap.empty;
user = None;
users = UserMap.empty;
}
let cache =
let m = Mvar.create () in
Mvar.set m (create ());
m
|