eliminate all functors in favour of a simpler approach

1 files changed, 4 insertions, 4 deletions

diff --git a/bin/bot.ml b/bin/bot.ml
index 7d7f714..a1bbf00 100644
--- a/bin/bot.ml
+++ b/bin/bot.ml
@@ -1,13 +1,13 @@
 open Async
 open Core
+open Disml
 
-module Client = Disml.Client.Make(struct
+let main () =
     let token = match Sys.getenv "DISCORD_TOKEN" with
     | Some t -> t
     | None -> failwith "No token in env"
-end)(Handler)
-
-let main () =
+    in
+    Client.create token;
     Client.start ()
     >>> fun client ->
     Clock.every