Rewrite from Lwt to Async

1 files changed, 9 insertions, 16 deletions

diff --git a/bin/bot.ml b/bin/bot.ml
index bf9f36e..34f24ea 100644
--- a/bin/bot.ml
+++ b/bin/bot.ml
@@ -1,20 +1,13 @@
-open Lwt.Infix
+open Async
 open Disml
 
-let main sharder =
-    Lwt_engine.on_timer 60.0 true begin
-        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 main () =
+    let token = match Sys.getenv "DISCORD_TOKEN" with
+    | Some s -> s
+    | None -> failwith "No token"
+    in
+    Sharder.start token
+    |> ignore
 
 let _ =
-    Sharder.start @@ Sys.getenv "DISCORD_TOKEN"
-    >>= (fun sharder ->
-    main sharder
-    |> ignore;
-    sharder.promise)
-    |> Lwt_main.run
\ No newline at end of file
+    Scheduler.go_main ~main:(main) ()
\ No newline at end of file