Some sharding work, reconnect is mostly working

1 files changed, 2 insertions, 1 deletions

diff --git a/bin/bot.ml b/bin/bot.ml
index 636f768..329c22d 100644
--- a/bin/bot.ml
+++ b/bin/bot.ml
@@ -50,8 +50,9 @@ let main () =
     Clock.every
     (Time.Span.create ~sec:60 ())
     (fun () ->
+        print_endline "Setting status";
         Client.set_status_with ~f:(fun shard -> `String ("Current seq: " ^ (Int.to_string shard.seq))) client
-        |> ignore)
+        >>> ignore)
 
 let _ =
     Scheduler.go_main ~main ()