eliminate all functors in favour of a simpler approach

1 files changed, 17 insertions, 24 deletions

diff --git a/lib/client.ml b/lib/client.ml
index 6ee4a3a..a60bf03 100644
--- a/lib/client.ml
+++ b/lib/client.ml
@@ -1,30 +1,23 @@
-module Make(T : S.Token)(H : S.Handler_f) = struct
-    open Async
+open Async
 
-    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 create token =
+    Config.token := token
 
-    let token = T.token
+let start ?count () =
+    Sharder.start ?count ()
+    >>| fun sharder ->
+    { sharder; token = !Config.token; }
 
-    let start ?count () =
-        Sharder.start ?count ()
-        >>| fun sharder ->
-        { sharder; token; }
+let set_status ~status client =
+    Sharder.set_status ~status 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 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