1 files changed, 17 insertions, 25 deletions
diff --git a/lib/client.ml b/lib/client.ml
index 45b6d54..49d01dc 100644
--- a/lib/client.ml
+++ b/lib/client.ml
@@ -1,30 +1,22 @@
-module Make(T : S.ClientOptions)(H : S.Handler_f) = struct
-    open Async
+open Async
+include Config
 
-    module Http = Http.Make(T)
-    module Models = Models.Make(Http)
-    module Handler = H.Make(Models)
-    module Dispatch = Dispatch.Make(Handler)
-    module Sharder = Sharder.Make(Http)(Dispatch)
+type t = {
+    sharder: Sharder.t;
+    token: string;
+}
 
-    type t = {
-        sharder: Sharder.t;
-        token: string;
-    }
+let start ?count token =
+    Config.token := token;
+    Sharder.start ?count ()
+    >>| fun sharder ->
+    { sharder; token = !Config.token; }
 
-    let token = T.token
+let set_status ~status client =
+    Sharder.set_status ~status client.sharder
 
-    let start ?count () =
-        Sharder.start ?count ()
-        >>| fun sharder ->
-        { sharder; token; }
+let set_status_with ~f client =
+    Sharder.set_status_with ~f client.sharder
 
-    let set_status ~status client =
-        Sharder.set_status ~status client.sharder
-
-    let set_status_with ~f client =
-        Sharder.set_status_with ~f client.sharder
-
-    let request_guild_members ~guild ?query ?limit client =
-        Sharder.request_guild_members ~guild ?query ?limit client.sharder
-end
-\ No newline at end of file
+let request_guild_members ~guild ?query ?limit client =
+    Sharder.request_guild_members ~guild ?query ?limit client.sharder
+\ No newline at end of file