lib/cache.ml


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