From 77f522a5f3fd74749e7a2cd4c849e520f2b6ba89 Mon Sep 17 00:00:00 2001
From: Mishio595 <tenseiken595@gmail.com>
Date: Thu, 29 Nov 2018 06:16:23 -0700
Subject: Some sharding work, reconnect is mostly working

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

(limited to 'bin')

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