diff options
| author | Adelyn Breelove <[email protected]> | 2019-02-19 08:45:39 -0700 |
|---|---|---|
| committer | Adelyn Breelove <[email protected]> | 2019-02-19 08:45:39 -0700 |
| commit | 07239d693ae7b7e051a923a4afa3852a56689099 (patch) | |
| tree | c7049558d161e9ae6ed3c1f54d6072b597346b45 /bin/commands.ml | |
| parent | add cache helper methods (diff) | |
| download | disml-07239d693ae7b7e051a923a4afa3852a56689099.tar.xz disml-07239d693ae7b7e051a923a4afa3852a56689099.zip | |
Add unavailable guilds to cache test
Diffstat (limited to 'bin/commands.ml')
| -rw-r--r-- | bin/commands.ml | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/bin/commands.ml b/bin/commands.ml index b2b0115..5e690d4 100644 --- a/bin/commands.ml +++ b/bin/commands.ml @@ -78,6 +78,7 @@ let cache message _args = let module U = Cache.UserMap in let cache = Mvar.peek_exn Cache.cache in let gc = G.length cache.guilds in + let ug = G.length cache.unavailable_guilds in let tc = C.length cache.text_channels in let vc = C.length cache.voice_channels in let cs = C.length cache.categories in @@ -88,12 +89,12 @@ let cache message _args = let user = Option.(value ~default:"None" (cache.user >>| User.tag)) in let embed = Embed.(default |> description (Printf.sprintf - "Guilds: %d\nText Channels: %d\n\ - Voice Channels: %d\nCategories: %d\n\ - Groups: %d\nPrivate Channels: %d\n\ - Users: %d\nPresences: %d\n\ - Current User: %s" - gc tc vc cs gr pr uc pre user)) in + "Guilds: %d\nUnavailable Guilds: %d\n\ + Text Channels: %d\nVoice Channels: %d\n\ + Categories: %d\nGroups: %d\n\ + Private Channels: %d\nUsers: %d\n\ + Presences: %d\nCurrent User: %s" + gc ug tc vc cs gr pr uc pre user)) in Message.reply_with ~embed message >>> ignore (* Issue a shutdown to all shards, then exits the process. *) |