start using Logs

1 files changed, 3 insertions, 1 deletions

diff --git a/bin/bot.ml b/bin/bot.ml
index c069084..1aae20b 100644
--- a/bin/bot.ml
+++ b/bin/bot.ml
@@ -52,6 +52,9 @@ let check_command (msg:Message.t) =
     | _ -> ()
 
 let main () =
+    Logs.set_reporter (Logs_fmt.reporter ());
+    Logs.set_level ~all:true (Some Logs.Debug);
+    Client.message_create := check_command;
     let token = match Sys.getenv "DISCORD_TOKEN" with
     | Some t -> t
     | None -> failwith "No token in env"
@@ -60,5 +63,4 @@ let main () =
     >>> ignore
 
 let _ =
-    Client.message_create := check_command;
     Scheduler.go_main ~main ()