Merge branch 'dev' into 'master'

Merge first semi-usable state of dev-branch in a while

See merge request Mishio595/disml!10

1 files changed, 30 insertions, 0 deletions

diff --git a/lib/client.ml b/lib/client.ml
new file mode 100644
index 0000000..229c9cc
--- /dev/null
+++ b/lib/client.ml
@@ -0,0 +1,30 @@
+open Async
+
+module Make(T : S.Token)(H : S.Handler_f) = struct
+    include T
+
+    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;
+    }
+
+    let start ?count () =
+        Sharder.start ?count ()
+        >>| fun sharder ->
+        { sharder; token; }
+
+    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