aboutsummaryrefslogtreecommitdiff
path: root/bin/bot.ml
diff options
context:
space:
mode:
authorAdelyn Breedlove <[email protected]>2019-02-05 21:42:34 +0000
committerAdelyn Breedlove <[email protected]>2019-02-05 21:42:34 +0000
commitae0f5c08bb4fb8868ca47030557a161993f24c8f (patch)
tree11e2cdb06393890ade23438f9b714dbdbe81aa63 /bin/bot.ml
parentMove large_threshold to shard storage, as it isn't needed elsewhere (diff)
downloaddisml-ae0f5c08bb4fb8868ca47030557a161993f24c8f.tar.xz
disml-ae0f5c08bb4fb8868ca47030557a161993f24c8f.zip
Sharder fixes
Diffstat (limited to 'bin/bot.ml')
-rw-r--r--bin/bot.ml3
1 files changed, 3 insertions, 0 deletions
diff --git a/bin/bot.ml b/bin/bot.ml
index 734cf74..bfc8505 100644
--- a/bin/bot.ml
+++ b/bin/bot.ml
@@ -93,6 +93,9 @@ let check_command Event.MessageCreate.{message} =
| Ok msg -> Message.reply message (Printf.sprintf "```lisp\n%s```" (Message.sexp_of_t msg |> Sexp.to_string_hum)) >>> ignore
| _ -> ()
end
+ | "!shutdown" ->
+ Ivar.read client >>> fun client ->
+ Sharder.shutdown_all client.sharder >>> ignore
| _ -> ()
(* Example logs setup *)