From ae0f5c08bb4fb8868ca47030557a161993f24c8f Mon Sep 17 00:00:00 2001
From: Adelyn Breedlove <adelyn@momijibot.com>
Date: Tue, 5 Feb 2019 21:42:34 +0000
Subject: Sharder fixes

---
 bin/bot.ml | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'bin')

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 *)
-- 
cgit v1.2.3