A few more sharding improvements

1 files changed, 6 insertions, 3 deletions

diff --git a/bin/bot.ml b/bin/bot.ml
index 962948e..e976ce2 100644
--- a/bin/bot.ml
+++ b/bin/bot.ml
@@ -3,15 +3,18 @@ open Animus
 
 let main sharder =
     Lwt_engine.on_timer 60.0 true begin
-        fun _ev -> Sharder.set_status sharder @@ `String "Testing..."
+        fun _ev -> Sharder.set_status_with sharder @@ begin
+        fun shard ->
+            `String ("Current seq: " ^ string_of_int shard.seq)
+        end
         >|= (fun _ -> print_endline "Status set!")
         |> ignore;
     end
 
 let _ =
-    Animus.Sharder.start ~count:2 @@ Sys.getenv "DISCORD_TOKEN"
+    Animus.Sharder.start @@ Sys.getenv "DISCORD_TOKEN"
     >>= (fun sharder ->
     main sharder
     |> ignore;
-    Lwt_main.run sharder.promise)
+    sharder.promise)
     |> Lwt_main.run
\ No newline at end of file