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
commitdbb2b74e90c09e15143c880f3d273fc606c899dc (patch)
tree11e2cdb06393890ade23438f9b714dbdbe81aa63 /bin/bot.ml
parentMove large_threshold to shard storage, as it isn't needed elsewhere (diff)
parentSharder fixes (diff)
downloaddisml-dbb2b74e90c09e15143c880f3d273fc606c899dc.tar.xz
disml-dbb2b74e90c09e15143c880f3d273fc606c899dc.zip
Merge branch 'sharder_fixes' into 'master'
Sharder fixes See merge request Mishio595/disml!17
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 *)