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 *)