fix event dispatch for MESSAGE_DELETE_BULK

1 files changed, 1 insertions, 0 deletions

diff --git a/bin/bot.ml b/bin/bot.ml
index bef2625..bb08d52 100644
--- a/bin/bot.ml
+++ b/bin/bot.ml
@@ -69,6 +69,7 @@ let setup_logger () =
 let main () =
     setup_logger ();
     Client.message_create := check_command;
+    Client.ready := (fun _ -> Logs.info (fun m -> m "Logged in"));
     let token = match Sys.getenv "DISCORD_TOKEN" with
     | Some t -> t
     | None -> failwith "No token in env"